特定の書式を一括して 【 】で括りたい 　　 要VBA TOP＞Excel/Word/PowerPoint ○ポイントはFindメソッド 特定の書式（例えば、太字や斜体、下線など）は、検索機能を使えば、簡単に長文の中から探し出すことができます。そこで、その検索機能とVBAを組み合わせて、特定の書式（この例では太字）の句を一気に【 】で括るマクロを考えてみました。 (1) VBEを起動 (2) VBEを開いてプロジェクトエクスプローラ（図1）から編集中の文書を右クリック[挿入(N)]＞[標準モジュール(M)]。 （図1）WORD VBEプロジェクトエクスプローラ (3) (2)で作った標準モジュールにマクロ作成。コード例は下記 Sub BOLDWORD_SANDWICH() With Selection 　With .Find 　　'太字の場合 　　.Font.Bold = True 　　'斜体の場合 　　'.Font.Italic = True 　　'二重取消線の場合 '.DoubleStrikeThrough = True 　　.Replacement.Text = "【^&】" 　　.Forward = True 　　.Wrap = wdFindContinue 　　.Execute 　End With 　If .Find.Forward = True Then 　　.Collapse Direction:=wdCollapseStart 　Else 　　.Collapse Direction:=wdCollapseEnd 　End If 　.Find.Execute Replace:=wdReplaceAll End With End Sub (4) VBEを閉じてファイルを保存終了 ○こんな時に使える ・特定の書式の句だけを目立つように置換したい ・文書全体のフォーマットが変更になった ○応用またはその他の方法 ・網掛を一括して【 】で括りたい ・2バイトの文字を判別したい ○注意 マクロを使って改変した文書は元に戻せません。マクロ実行前にかならず保存するか、バックアップファイルを作っておきましょう。