Ausführen von VBA auf Fußnotentext

Question

Ich bin neu in VBA und schaffte es, ein einfaches Makro, das den gesamten Text mit einem bestimmten Stil in einen Hyperlink (unten eingefügt) konvertieren wird, und ich würde es wirklich gerne das gleiche tun mit allen Fußnoten Text, aber keine der Antworten online, die ich versucht habe, haben bisher funktioniert.

Irgendwelche Gedanken?

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

Im Gegensatz zu dem Wort UI, "Suche" funktioniert nur auf der "Story" Sie angeben. In Ihrem Fall wird es davon abhängen, wo Selection ist. Um Fußnoten gezielt zu adressieren, sehen Sie, wie ein Range-Objekt im folgenden Codebeispiel auf den "Fußnotenstory" festgelegt wird, und dann den in einer Suche verwendeten Bereich.

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