文字数の多い文に蛍光ペンをつける【素人 Word マクロ】

Microsoft officeのWordVBAでマクロを組みましたので公開します。
インターネットで検索したり、マクロの記録機能を使ったりしたのを組み合わせだけなので、上手くはないですが、一応動くはずです。
office2021です。
必ず、元データのバックアップを取ってから実行してください。
素人の作ったものなので、信用しすぎないでください。

[コード]

Sub 読みやすさチェック()
    Dim doc As Document
    Dim rng As Range
    Dim sentence As Range
    Dim maxLength As Integer
    
    ' ワード文書を設定
    Set doc = ActiveDocument
    
    ' 最大文字数を設定
    maxLength = 40
    
    ' 文書内のテキストを処理
    For Each rng In doc.Sentences
        If Len(rng.Text) > maxLength Then
            ' 文が最大文字数を超える場合、青色でハイライト表示
            Set sentence = rng
            sentence.HighlightColorIndex = wdGray25 ' グレーに変更
        End If
    Next rng

  ' ワード文書を設定
    Set doc = ActiveDocument
    
    ' 最大文字数を設定
    maxLength = 60
    
    ' 文書内のテキストを処理
    For Each rng In doc.Sentences
        If Len(rng.Text) > maxLength Then
            ' 文が最大文字数を超える場合、青色でハイライト表示
            Set sentence = rng
            sentence.HighlightColorIndex = wdTurquoise ' 青色に変更
        End If
    Next rng

 ' ワード文書を設定
    Set doc = ActiveDocument
    
    ' 最大文字数を設定
    maxLength = 100
    
    ' 文書内のテキストを処理
    For Each rng In doc.Sentences
        If Len(rng.Text) > maxLength Then
            ' 文が最大文字数を超える場合、青色でハイライト表示
            Set sentence = rng
            sentence.HighlightColorIndex = wdBrightGreen ' 青色に変更
        End If
    Next rng


End Sub


この記事が気に入ったらサポートをしてみませんか?