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


发表评论