乔山办公网我们一直在努力
您的位置:乔山办公网 > word文档 > 如何利用<em>VBA</em>删除<em>Word</em>里的<

如何利用<em>VBA</em>删除<em>Word</em>里的<

作者:乔山办公网日期:

返回目录:word文档


添加语句:
Selection.InsertBreak Type:=wdPageBreak
你也可以通过手动插入分页符,录制宏来获取这个语句。
这也是个不错的学习方法。

因为粘贴后多出来的空白页,就是新建的文档时原来的空白页面,只需在保存前发送一个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    '设定当前文档对象
    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 "结束!e799bee5baa6e58685e5aeb9331"
End Sub

搜到那页手动删除不行么?

用“Delete”键删除。

1.打开word文档,单击“开始”菜单下的“显示/隐藏编辑标记”命令按钮,使分页符显示。
2.分别将插入点定位到分页符前面,按“Delete”键删除分页符。

相关阅读

  • 如何利用<em>VBA</em>删除<em>Word</em>里的<

  • 乔山办公网word文档
  • 添加语句: Selection.InsertBreak Type:=wdPageBreak你也可以通过手动插入分页符,录制宏来获取这个语句。这也是个不错的学习方法。vba删除WORD的分页符" src="/uploads/tu/727.jpg" style="width: 400px; h
关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网