在word 中可以通过“定位”操作快速地跳转到具体的页面。
如果要快速地选中具体的页面的所有内容,可以通过内置书签“\page”快速地选中具体页面的所有内容。
在vba中可以使用GoTo方法进行定位和Bookmarks属性快速地选择页面内容,结合起来就可以顺利地操作任何一个页面了。
代码如下:
Sub QQ1722187970() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim iPageNo As Long '获取总页数 iPageNo = oDoc.Range.Information(wdNumberOfPagesInDocument) For i = iPageNo To 4 Step -1 '跳转到具体的页面 Selection.GoTo wdGoToPage, Which:=wdGoToAbsolute, Count:=i '选中具体的页面内容 oDoc.Bookmarks("\page").Range.Select '删除所选的内容 Selection.Range.Delete Next i End Sub
以上代码实现了将第4页到最后一页的内容进行逐页删除。
发表评论