A列のセルを参照して、B列の文字列を強調表示する方法

A列に単語（検出単語）
B列に文章（本文）
を入れて、

B列の文章中に、A列の単語を含む場合、
マクロで赤色の太字設定にできますでしょうか。
（B列の文章は、A列の単語が複数入る場合があります）

A列の単語は数千行で、順次追加していきます。
B列の文章は2000行程度です。

表記ゆれと同音異義語・同訓異字の検出用です。
ワードの校正機能は検出したり、しなかったりで…

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2017/06/14 21:34

Excelのマクロでないとダメなのでしょうか？

検出単語の一覧さえあれば、Wordのマクロでも同じ結果にできます。
マクロを提示するよりもアドインを紹介しますので、これを利用しては。
http://ameblo.jp/gidgeerock/theme-10045526337.html
http://www.vector.co.jp/soft/winnt/writing/se498 …

この回答へのお礼

ありがとうございます！
ワードのマクロはまったく思いつかなかったです！！

エクセルより、ワードの方が校正用にあってそうです！！

お礼日時：2017/06/15 15:15

No.2 回答者： tom04 回答日時： 2017/06/14 21:45

こんばんは！

＞A列の単語は数千行で、順次追加していきます。
＞B列の文章は2000行程度です

というコトですので、相当時間を要すると思いますが・・・
一例です。

Sub Sample1()
Dim i As Long, j As Long, k As Long, myStr As String
'//一旦B列の文字の文字色を「自動」に、スタイルを「標準」に戻す//
With Range("B:B").Font
.ColorIndex = xlAutomatic
.Bold = False
End With
'//▼ここから処理//
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
myStr = Cells(i, "A")
For j = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If InStr(Cells(j, "B"), myStr) > 0 Then
For k = 1 To Len(Cells(j, "B"))
If Mid(Cells(j, "B"), k, Len(myStr)) = myStr Then
With Cells(j, "B").Characters(Start:=k, Length:=Len(myStr)).Font
.ColorIndex = 3
.Bold = True
End With
End If
Next k
End If
Next j
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます！
やりたかったことが実現できました！！

お礼日時：2017/06/15 15:15