今天要和大家分享的是:Word用VBA代码每页拆分为一个文档
工具/原料
VBA代码
方法/步骤
1、打开Word表格
2、按alt+f11,打开VBA编辑器
3、然后插入模块
4、粘贴以下代码OptionExplicit咯悝滩镞SubSplitEveryFivePagesAsDocuments()OnErrorRe霜杼厮贿sumeNextDimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsInteger,nSubIndexAsInteger,nTotalPagesAsInteger,nBoundAsIntegerDimfsoAsObjectConstnSteps=1Setfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentnTotalPages=Val(ActiveDocument.BuiltInDocumentProperties(wdPropertyPages))oRange.CollapsewdCollapseStartoRange.SelectFornIndex=1TonTotalPagesStepnStepsSetoNewDoc=Documents.AddIfnIndex+nSteps>nTotalPagesThennBound=nTotalPagesElsenBound=nIndex+nSteps-1EndIfFornSubIndex=nIndexTonBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNextnSubIndexstrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&"_"&(nIndex\nSteps+1)&"."&fso.GetExtensionName(strSrcName))oNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextnIndexSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结束!"EndSub
5、单击执行按钮
6、确定结束
7、即可看到同文件目录下,生成3个文档
8、打开其中一个即为拆分的文档