如何使用Excel VBA刪除word文檔中的特定頁面？

Question

我正在使用 Excel VBA 創建和填充 Word 文檔，我想刪除該文檔中的特定頁面。 我嘗試了以下刪除方法：

With wDoc
    .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="20" 'Page number
    .Bookmarks("\Page").Select
    With Selection
      .Delete
    End With
End With

此代碼在執行時不會返回任何錯誤消息，但不會按預期刪除單詞頁面內容。 我錯過了什么？

Answer 1

檢查下面的代碼。 我已經從這里的 name 參數中刪除了引號（用 20 替換了“20”）您可以使用您的文檔參考 wDoc 而不是我使用的 Activedocument。

With ActiveDocument
    .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=20 'Page number
    .Bookmarks("\Page").Select
    With Selection
      .Delete
    End With
End With

Answer 2

有時您需要不斷刪除，直到頁面本身完全消失。

Sub DeletePage(iPageNumber As Integer)
'
' DeletePage Macro
'

With ThisDocument
    .GoTo(What:=wdGoToPage, name:=iPageNumber).Select
    .Bookmarks("\Page").Range.Select
End With

Selection.Delete

' keep deleting until page is gone
Do
    Selection.MoveLeft Extend:=wdExtend
    Selection.Delete

Loop Until Selection.Information(wdActiveEndAdjustedPageNumber) < iPageNumber

結束子

Answer 3

With wdDoc
    Lr = .Goto(wdGoToPage, wdGoToLast).Start
    .Range(Lr - 1, wdDoc.Range.End).Delete
End with

或者

wdDoc.Range(wdDoc.Goto(wdGoToPage, wdGoToLast).Start - 1, wdDoc.Range.End).Delete

它將找到最后一個字符/憤怒並刪除