用語をハイライトする際、マクロを組むヒント
：マクロをどのように作成するかと言う一般的な部分は一般的な書物等でご確認ください
１．まず、マクロを入れる枠組みを作ります。この場合はマクロの名前を「ハイライトITC」としました。この枠組はステップ6. までこのまま放置しておきます。
２．ハイライトする用語のリストのエクセルに、マクロのもとになるスクリプトを書き込みます。（この例では3行のみのデータにしています）
用語集の元データのうち「英語」のカラムのみ使用します。
\1, \2, \3はそのままコピペで使用してください。
macro seedは、「=concatenate(d2, a2, e2, a2, f2)」 と入れてください。
| 英語 | 訳 | 初出時 | \1 | \2 | \3 | macro seed |
|---|---|---|---|---|---|---|
| SVR | SVR | --- | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = " | "\ .Replacement.Text = " | "\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = "SVR"\ .Replacement.Text = "SVR"\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll |
| FDC | FDC錠 | --- | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = " | "\ .Replacement.Text = " | "\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = "FDC"\ .Replacement.Text = "FDC"\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll |
| CKD | 慢性腎臓病 | --- | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = " | "\ .Replacement.Text = " | "\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.ClearFormatting\ Selection.Find.Replacement.ClearFormatting\ Selection.Find.Replacement.Font.Color = 192\ With Selection.Find\ .Text = "CKD"\ .Replacement.Text = "CKD"\ .Forward = True\ .Wrap = wdFindContinue\ .Format = True\ .MatchCase = False\ .MatchWholeWord = False\ .MatchByte = False\ .MatchAllWordForms = False\ .MatchSoundsLike = False\ .MatchWildcards = False\ .MatchFuzzy = False\ End With\ Selection.Find.Execute Replace:=wdReplaceAll |
3．macro seedのカラムをコピーして、TeraPadにペーストしてください。次のようになります。
4．\\ を\nに「すべて置換」します。
5．こんな感じになります。
6．5.の「こんな感じ」をすべて選択して、1.で準備したマクロの枠組みの、最後の行のEnd Subの前に、挿入します。