作者:乔山办公网日期:
返回目录:word文档
添加语句:
Selection.InsertBreak Type:=wdPageBreak
你也可以通过手动插入分页符,录制宏来获取这个语句。
这也是个不错的学习方法。
用“Delete”键删除。
1.打开word文档,单击“开始”菜单下的“显示/隐藏编辑标记”命令按钮,使分页符显示。
2.分别将插入点定位到分页符前面,按“Delete”键删除分页符。
Selection.TypeText(Constants.vbTab)
因为粘贴后多出来的空白页,就是新建的文档时原来的空白页面,只需在保存前发送一个BACKSPACE键就可删除,代码如下:
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") '定义文件对象变量
Set oSrcDoc = ActiveDocument '设定当前e68a84e79fa5e98193331文档对象
Set oRange = oSrcDoc.Content '设定当前文档内容对象
oRange.Collapse wdCollapseStart '将光标移动到文档开头
oRange.Select '选定文档内容
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) '循环遍历文档每个页面
oSrcDoc.Bookmarks("\page").Range.Copy '复制当前页面内容
oSrcDoc.Windows(1).Activate '显示当前文档窗口
Application.Browser.Target = wdBrowsePage '跳转显示下一页
Application.Browser.Next
strSrcName = oSrcDoc.FullName '获取当前文档名
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName)) '定义新文档名
Set oNewDoc = Documents.Add '新建文档
Selection.Paste '将复制的页面粘贴到新文档中
Selection.TypeBackspace '发送回退按键,删除多余页面
oNewDoc.SaveAs strNewName '用新文档名保存
oNewDoc.Close False '关闭新建文档
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub