如何删除vba word中的最后一页 [英] How delete the last page in vba word

问题描述

我有一个带有表格对象的 word 文件.

I have a word file with table object.

在我的脚本中，我多次复制和粘贴，结果添加了页面.

In my script I copy and paste many times and as a result pages are added.

复制和粘贴:

Dim Range2 As Range
Dim r
i_TableAsRange.Copy
Set Range2 = ActiveDocument.Content
Range2.Collapse Direction:=wdCollapseEnd
Range2.Paste

我想删除第二页之后的所有页面.

I want to delete all pages after the second page.

我该怎么做?

推荐答案

改编自 Marvin_Guo 的帖子 这里

Adapted from Marvin_Guo's post here

Sub DeleteAfterPageTwo()

Dim rng As Range
Dim pageCount As Integer

' work out how many pages
pageCount = ActiveDocument.ComputeStatistics(wdStatisticPages)

' set a range from page 3 to the end
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
Set rng = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageCount
rng.End = Selection.Bookmarks("\Page").Range.End

' delete the range
rng.Delete

' optionally remove the left over blank page
Selection.TypeBackspace
Selection.TypeBackspace

End Sub

这篇关于如何删除vba word中的最后一页的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！