如何使用Word VBA使每个脚注的最后两个单词加粗？

Sub BoldLastTwoWordsInFootnotes()
    Dim doc As Document
    Dim fn As Footnote
    Dim rng As Range
    Dim words() As String
    Dim lastTwoWords As String
    
    Set doc = ActiveDocument
    
    ' 循环遍历每个脚注
    For Each fn In doc.Footnotes
        Set rng = fn.Range
        rng.Collapse wdCollapseStart
        
        ' 将脚注内容拆分为单词
        words = Split(rng.Text, " ")
        
        ' 获取脚注的最后两个单词
        If UBound(words) >= 1 Then
            lastTwoWords = words(UBound(words) - 1) & " " & words(UBound(words))
            
            ' 将最后两个单词加粗
            rng.MoveEnd wdCharacter, -1
            rng.MoveEnd wdWord, -1
            rng.Font.Bold = True
            rng.Collapse wdCollapseEnd
        End If
    Next fn
End Sub