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

Question

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

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

我试过了：

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

我只得到范围而不删除标题。

Answer 1

例如：

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