Skip to main content
タイトルを編集
リンク
htb
  • 2,027
  • 3
  • 15
  • 35

【VBA】Word Word文書内の複数の文字列をイタリックに変換する方法

ソース リンク

【VBA】Word文書内の複数の文字列をイタリックに変換する方法

Word文書内の複数の文字列をイタリックに変換する方法を探しております。
例えばword文書内に

文字列1
文字列2
文字列1
文字列3
・
・
・

とある場合に、"文字列1"のみであれば、以下のWordVBAのコードで変換できるのですが、複数単語("文字列2","文字列3"のように)でもイタリックに変換できるようなコードを書きたいと思っております。
方法をお教えいただけますと幸いです。
何卒よろしくお願い申し上げます。

Sub findText()

With Selection.Find
    .Text = "文字列1"
    Do While .Execute
        Selection.Font.Italic = True
    Loop
End With

End Sub