(Wordマクロ)すべての段落に同じスタイルが適用されているか調べる

単一のword文書について、すべての段落に同じスタイルが適用されているか調べます。

推奨シチュエーション

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

  • 同一のスタイルのみを使用しているはずなのに、表示が崩れている箇所がある
  • 長文のword文書で、使うスタイルは1種類のみである

マクロとその動作

Public Sub Style_Change()
''すべての段落に同じスタイルが適用されているか調べる

Dim x As Variant
Dim cnt As Long

With ActiveDocument
    cnt = 1
    For Each x In .Paragraphs
    If .Paragraphs.Item(cnt).Range.ParagraphStyle = "スタイル1" Then
    Else
        If MsgBox(cnt & "段落目にスタイル1が適用されていません。" & vbNewLine & _
        cnt & "段落目にスタイル1を適用しますか?", vbInformation + vbYesNo, Title:="確認") = vbYes Then
            .Paragraphs.Item(cnt).Style = "スタイル1"
        End If
    End If
    cnt = cnt + 1
    Next x
End With

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


<実行結果>


同じスタイルが適用されていない段落については、同じスタイルを適用するか確認し、「はい」を選択した場合に、同じスタイルを適用します。

おすすめ

コメントを残す

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

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