(Wordマクロ)標準スタイルを別のスタイルに置き換える

単一のword文書について、標準スタイルになっている段落を別のスタイルに置き換えます。

推奨シチュエーション

このマクロは、以下のシチュエーションでの使用に向いています。

  • 複数のスタイルがあるword文書で、特定のスタイルを別のスタイルに変えたい
  • 長文のword文書で、スタイルを一つひとつ確認することが大変になっている

マクロとその動作

Public Sub Style_Change2()
''標準スタイルをスタイル1に置き換える

Dim x As Variant
Dim cnt As Long

With ActiveDocument
    cnt = 1
    For Each x In .Paragraphs
    If .Paragraphs.Item(cnt).Range.ParagraphStyle = "標準" Then _
    .Paragraphs.Item(cnt).Style = "スタイル1"
    cnt = cnt + 1
    Next x
End With

MsgBox "処理が完了しました。", vbInformation, Title:="処理完了"

End Sub


<実行結果>

もちろん、スタイル1になっている段落をスタイル2に切り替えることも可能です。その場合は、10行目の”標準”を”スタイル1″に、11行目の”スタイル1″を”スタイル2″に書き換えます。

おすすめ

コメントを残す

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください