マクロ

用語をハイライトする際、マクロを組むヒント

:マクロをどのように作成するかと言う一般的な部分は一般的な書物等でご確認ください

1.まず、マクロを入れる枠組みを作ります。この場合はマクロの名前を「ハイライトITC」としました。この枠組はステップ6. までこのまま放置しておきます。

2.ハイライトする用語のリストのエクセルに、マクロのもとになるスクリプトを書き込みます。(この例では3行のみのデータにしています)

用語集の元データのうち「英語」のカラムのみ使用します。

\1, \2, \3はそのままコピペで使用してください。

macro seedは、「=concatenate(d2, a2, e2, a2, f2)」 と入れてください。

英語初出時\1\2\3macro seed
SVRSVR--- 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
FDCFDC錠--- 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の前に、挿入します。