搜索
如何将一个WORD文档分割成几个文件？office文档分割成几个文件？打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。Sub分割WORD()DimoWordAsWord.ApplicationDimoDocAsWord.DocumentDimoNewDocAsWord.DocumentDimoRangeAsWord.RangeDimlCurrentStartAsLongDimlCurrentEndAsLongDimlDocumentEndAsLongDimlOutputCountAsLonglOutputCount=0SetoWord=GetObject(,Word.Application)SetoDoc=ActiveDocumentoDoc.SelectlCurrentStart=oWord.Selection.StartlCurrentEnd=lCurrentStartlDocumentEnd=oWord.Selection.EndoWord.Selection.CollapsewdCollapseStartDoWhile(lCurrentEndlDocumentEnd)oWord.Browser.Target=wdBrowsePageoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.Next'这行分割几页就复制几次。lCurrentEnd=oWord.Selection.EndIf(lCurrentStart=lCurrentEnd)ThenlCurrentEnd=lDocumentEndEndIfSetoRange=oDoc.Range(lCurrentStart,lCurrentEnd)SetoNewDoc=oWord.Documents.AddoRange.CopyoNewDoc.Range(0,0).PastelOutputCount=lOutputCount+1oNewDoc.SaveAsFileName:=E:\&lOutputCount&.doc'这里更改输出保存盘符，我的是E盘根目录oNewDoc.CloselCurrentStart=lCurrentEndLoopEndSub