Word VBA 検索について

Question

wordのVBAにてスタイルがboldのものを取得してAwardだったら#Award#のように置換したいです。ためしに以下の第一段階として以下のコードを作成してみましたが、置き換えられません。テキストを指定せずスタイルだけで検索というのはできないのでしょうか。

Sub replaceText()

With Selection.Find
    .Font.Bold = True
    With .Replacement
        .Text = "#Word#"
        .Font.Size = 24
        .Font.Underline = True
    End With
    .Execute Replace:=wdReplaceAll
End With

End Sub

Answer 1

下記でどうでしょう。

Sub replaceText()
    Dim mRng As Range

    Set mRng = ActiveDocument.Range
    With mRng.Find
        .Font.Bold = True
        Do While .Execute = True
            With mRng
                .Text = "#" & .Text & "#"
                .Font.Size = 24
                .Font.Underline = True
            End With
        Loop
    End With
End Sub

Answer 2

こんな感じでどうでしょうか。

    With Selection.Find
        .Font.Bold = True
        .Format = True
    End With
    
    Do While Selection.Find.Execute
        Selection.Text = "#" & Selection.Text & "#"
    Loop