Word VBA　検索について

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

VBA
1Sub replaceText()
2
3With Selection.Find
4    .Font.Bold = True
5    With .Replacement
6        .Text = "#Word#"
7        .Font.Size = 24
8        .Font.Underline = True
9    End With
10    .Execute Replace:=wdReplaceAll
11End With
12
13End Sub
14

行動規範の内容に同意します

回答2件

ベストアンサー

下記でどうでしょう。

vba
1Sub replaceText()
2    Dim mRng As Range
3
4    Set mRng = ActiveDocument.Range
5    With mRng.Find
6        .Font.Bold = True
7        Do While .Execute = True
8            With mRng
9                .Text = "#" & .Text & "#"
10                .Font.Size = 24
11                .Font.Underline = True
12            End With
13        Loop
14    End With
15End Sub

投稿2021/09/23 12:45

hatena19

総合スコア34075

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

VBA
1    With Selection.Find
2        .Font.Bold = True
3        .Format = True
4    End With
5    
6    Do While Selection.Find.Execute
7        Selection.Text = "#" & Selection.Text & "#"
8    Loop