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

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

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

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

「A列のセルを参照して、B列の文字列を強調」の質問画像

A 回答 (2件)

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



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

助かりました

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

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

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

こんばんは!



>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
    • good
    • 0
この回答へのお礼

解決しました

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報