文字数の多い文に蛍光ペンをつける【素人 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
この記事が気に入ったらサポートをしてみませんか?