使用Excel VBA：如果发生事件，则删除Word文档上的空白页

Question

所以我想要做的是使用excel vba打开一个单词文档，我试图浏览word文档的每一页，如果任何页面上的范围长度都少大于或等于20（20是书签的字幕长度然后执行分页，留下空白页和20个字符空格）然后删除页面，因为它没有内容。

以下是我现在所拥有的，但它不起作用。

Dim Rng As Range, i as Long
For i = 1 To wdDoc.ComputeStatistics(wdStatisticPages)
    Set Rng = wdDoc.Goto(What:=wdGoToPage, Name:=i)
    Set Rng = Rng.Goto(What:=wdGoToBookmark, Name:="\page")
    If Len(Rng) <= 20 Then Rng.Delete
Next i