OCRしたデータで漢字とカナを誤っている文字があったので，一部のカナに蛍光マーカーを引くようにしたWord VBAマクロです．

目次

  1. 狙い
  2. マクロ
  3. バリエーション
    1. 全角カナ
  4. 参考文献

狙い

以下のような箇所を捕捉することを目的にしています：「工/エ」，「力/カ」，「卜/ト」，「二/ニ」，「八/ハ」，「匕/ヒ」，「口/ロ」，「一/ー」，「リ/り」．

マクロ

Sub 別の文字と似たカナに着色()

	With ActiveDocument.Range.Find
		.MatchWildcards = True
		.Text = "[エカトニハヒリロー]{1,}"
		.Wrap = wdFindStop
		.Replacement.Highlight = True
		Options.DefaultHighlightColorIndex = wdYellow
		.Execute Replace:=wdReplaceAll
	End With

End Sub

バリエーション

全角カナ

全角カナにマーカーをつけるなら，

.Text = "[ァ-ヾ]{1,}"

とします．

参考文献

みんなのワードマクロ様の【コード】半角数字を蛍光ペンで着色するWordマクロの記事を参考にしました．