使用VBA删除Word中的多行

Question

我在Word中收到一张发票​​，附加了＃34;标题＆＃34;。标题如下所示：

箭头指向从发票变更为发票的变量。 每个文档都包含多个发票和许多标题。

我需要识别并删除页面编号为2及以上的每一页，并保留页码为1的页面。

我已经使用过：

 Sub DeleteLines()
 Application.ScreenUpdating = False 
 Selection.HomeKey Unit:=wdStory 
 With Selection.Find 
     .ClearFormatting 
     .Wrap = wdFindStop 
     .Text = "NO BOW A/S" 
     Do While .Execute 
          ActiveDocument.Bookmarks("\Line").Range.Delete 
     Loop 
End With 
Application.ScreenUpdating = True 
End Sub