求助高手帮忙解决个问题

r330890845 2015-09-22 01:40:44

我现在有一个五十万字的WORD文档，现在希望把这个文档按一千字左右一份分成大概五百份，请问用VBA改怎么写这个程序呢？谢谢高手们。

...全文

160 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

r330890845 2015-11-30

打赏
举报

老师，切割完了我想把切割的之后的文本保存一下应该怎么设置，默认的保存在哪里呢？

r330890845 2015-09-27

打赏
举报

非常感谢，再有不会的再来请教您！

赵4老师 2015-09-22

打赏
举报

在Word 2003中，打开你的word，按Alt+F11，将以上代码复制粘贴到代码窗口中，按F5

r330890845 2015-09-22

打赏
举报

谢谢，不过请问该怎么用呢，我是小白

赵4老师 2015-09-22

打赏
举报

Sub Macro1()
    Dim i As Long
    for i=1 to 500
        Selection.MoveRight Unit:=wdCharacter, Count:=1000, Extend:=wdExtend
        Selection.Copy
        Documents.Add DocumentType:=wdNewBlankDocument
        Selection.PasteAndFormat (wdPasteDefault)
        ActiveDocument.SaveAs FileName:="Split-"+Right("0000"+CStr(i),4)+".doc", FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        ActiveWindow.Close
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    next
End Sub