Word VBA - 格式化和重新链接超链接中的脚注和尾注

Question

我需要在我编写的宏中找到脚注和尾注标记（在正文中，以格式化它们并重新链接它们）等，以清理从网络导入的文档。

我的宏工作正常，除了，其中部分查找字符串是超链接显示文本，部分不是。

搜索([a-z])([0-9])（在正文中定位尾注标记，因为它们没有格式化为尾注）找不到它们，因为[0-9] 是超链接显示文本而[a-z] 不是。

1. 我的问题是：如何搜索与[超链接显示文本字符串]相邻的[普通字符串]？
2. 如果找到，下一步是如何替换超链接显示文本（格式化尾注上标，删除 para 标记）将其保留在超链接中（我可以解决这个问题 - 也许是另一个问题的主题？）

Answer 1

当然，您可以简单地将超链接转换为上标数字，然后使用您必须使用的任何其他代码将上标数字替换为尾注。

Sub Demo()
Dim h As Long
With ActiveDocument
  For h = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(h)
      If IsNumeric(.TextToDisplay) = True Then
        With .Range
          If .Characters.First.Previous Like "[a-z]" Then
            .Fields.Unlink
            .Font.Reset
            .Font.Superscript = True
          End If
        End With
      End If
    End With
  Next
End With
End Sub

根据您的操作，您可以简单地将尾注代码插入到内部 If ... End If 构造中来代替字体操作。