Question

我是VBA的新手，并设法组建了一个简单的宏，它将所有带有特定样式的文本转换为超链接（粘贴在下面），我真的希望它能用所有脚注做同样的事情文本也是如此，但到目前为止我在网上找到的答案都没有。

有什么想法吗？

Sub FindLinkStyle()
Dim strStyle As String
strStyle = "Subtle Reference"
Selection.HomeKey Unit:=wdStory
    With Selection.Find
    .text = ""
    .ClearFormatting
    .Style = strStyle
        Do While .Execute
        ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
        Address:="#link"
        Selection.Style = ActiveDocument.Styles("Normal")
        Loop
    End With
End Sub

Answer 1

与Word UI不同，“查找”仅适用于您指定的“故事”。因此，在您的情况下，它将取决于Selection的位置。要专门解决脚注，请查看Range对象如何设置为以下代码示例中的“脚注故事”，然后查找在查找中使用的范围。

Sub FindInFootnote()
    Dim rngFT As word.Range

    Set rngFT = ActiveDocument.StoryRanges(wdFootnotesStory)
    With rngFT.Find
        .Text = ""
        .Style = "Subtle Reference"
        .Replacement.Text = "XXXXX!!!!!"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

在脚注文本上运行VBA

1 个答案: