如何用vba快速地跳转到word文档的具体页面?

在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页到最后一页的内容进行逐页删除。

 

       

发表评论