VBA Word-从文本中删除标题中的超链接

我正在尝试删除特定范围内的所有标题（第4页，直到文档结束）。 我只想删除超链接，而不想删除文本本身。

例如： ->这里有一些文字 删除超链接标题后

到目前为止，我试过：

Sub removeCaptions()

  Dim rgePages As Range

  Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
  Set rgePages = Selection.Range
  lastPage = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=lastPage
  rgePages.End = Selection.Bookmarks("\Page").Range.End

  With rgePages.Select

      If Range.Style = "Caption" Then
         Range.Delete
      End If

  End With

End Sub

但是我只知道范围，没有去掉标题

提前谢谢

例如：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ""
    .Replacement.Text = ""
    .Format = True
    .Forward = True
    .Style = wdStyleCaption
    .Wrap = wdFindStop
  End With
  Do While .Find.Execute
    If .Information(wdActiveEndAdjustedPageNumber) > 3 Then .Fields.Unlink
    .Collapse wdCollapseEnd
  Loop
End With
Application.ScreenUpdating = True
End Sub

---

它看起来很棒，但在运行宏之后，我注意到超链接没有被删除。（第3页后选中）要解决此问题，需要按Ctrl+A，然后按Ctrl+Shift+F9。问题是我想通过宏得到结果。而且，值得一提的是，大多数链接都指向文档本身的其他文本。«在运行宏之后，我注意到超链接没有被删除»在第3页之后应用了标题样式的段落中的超链接将在我发布的宏之后保留。但是，超链接格式不会被删除，因为您没有要求删除。在标题中包含超链接是不常见的。在Word中使用插入标题工具插入标题时，无法执行此操作。超链接必须在事件发生后添加。你可能指的是字幕的超链接吗？