VBA Word Поменять размер шрифта для конкретного слова во всем документе с колонтитулами

Добрый день мне необходимо поменять размер всех слов "Текст" в word документе. Я попробовал два способа: https://stackoverflow.com/questions/53602497/vba-word-change-font-size-of-specific-words-in-a-table-cell/53602790

With WDApp.ActiveDocument.Content.Find
    .ClearFormatting
    .ClearAllFuzzyOptions
    .Text = "wk"
    With .Replacement
        .Text = "wk"  'this line might be unnecessary
        .Font.Size = 9
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
End With

И вот этот: https://coderoad.ru/45757224/VBA-%D0%B8%D0%B7%D0%BC%D0%B5%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5-%D1%80%D0%B0%D0%B7%D0%BC%D0%B5%D1%80%D0%B0-%D1%88%D1%80%D0%B8%D1%84%D1%82%D0%B0-%D0%BE%D0%B4%D0%BD%D0%BE%D0%B3%D0%BE-%D1%81%D0%B8%D0%BC%D0%B2%D0%BE%D0%BB%D0%B0-%D0%B2-%D0%BE%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D0%BD%D0%BE%D0%B9-%D1%81%D1%82%D1%80%D0%BE%D0%BA%D0%B5-%D0%BC%D0%B0%D0%BA%D1%80%D0%BE%D1%81-MSWORD

Dim myRange As Range

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="this", Forward:=True
If myRange.Find.Found = True Then
    myRange.Font.Size = 20
End If

Почему-то они не работают на колонтитулы