How do delete an specific page in a word document using Excel VBA?

Question

I'm using Excel VBA to create and populate a word document and I'd like to delete a specific page in that document. I tried the following approach for deleting:

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

This code doesn't return any error message on execution but the word page content isn't deleted as expected. What am I missing?

Answer 1

Check below code. I have removed quotes from name parameter here (replaced "20" with 20) You can use your document reference wDoc instead of Activedocument that I have used.

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

Answer 2

Sometimes you need to keep deleting until the page itself is fully gone.

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

End Sub

Answer 3

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

Or

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

It will find the last Character/Rage and Delete