デジタル校正の入門［ワード編］
校正・校閲の領域でもデジタル化の波は年々進んでいますが、まだ人に置き換わるツールは存在しません。現在の校正に関するデジタルツールは、部分的に活用することで、その効果を最大に発揮できるものがほとんどです。
そんなデジタルツールですが、有料のソフトを購入したり、ネットでフリーソフトを探したりしなくても、自分で作ることができます。
あらかじめマクロのコードを用意しています。コピペと文字入力さえできれば、誰でも簡単にできるようになっています。
非常にシンプルなマクロです。今までマクロに一度も触れたことがないという方でも、すぐに自分用にカスタマイズすることが可能です。
このマクロを使えば、表記ゆれや体裁の修正が一瞬でできます。指定の文言を完全一致で検索・置換するので精度は100%です。ひと手間かけるだけで、校正作業を楽にすることができます。
すぐに活用する機会がなくても、知識だけでも頭に入れておいて、自分の業務で使える部分はないか探してみてください。
■ この記事は、前回のエクセル編の続編になります。
エクセルでもワードでもマクロの設定の仕方は似ているので、エクセル編をご覧いただいた方はすぐに設定できると思います。
１：体裁を整える（全角英字を半角に直す）
最初は、体裁の一括修正を行うところから始めます。文書の体裁が修正されるだけでも、校正の負担を軽減させることができます。
【準備】
まずは、ワードで新しい文書を作成します。もしくは、既存の文書をコピーしたものを用意してください。
※マクロを使って修正したものは「Ctrl+z」で取り消しができません。
▼ ここから順を追って、全角の英字を半角に自動で直すマクロの説明をしていきます。
［１］
どこの行でも大丈夫です。全角で「ＡＢＣ」と入力してください。
その下に、半角で「ABC」と入力します（※この半角のABCは比較用です）。
■ ここで入力した全角の「ＡＢＣ」を、自動で半角の「ABC」に修正できるように設定します。
［２］
【表示】タブ →【マクロ】→【マクロの表示】へ進みます。
［３］
【マクロの表示】をクリックすると、次の画面が表示されます。
１．「マクロ名」の欄にマクロの名前を入力します。何でも大丈夫ですが、ここでは『全角英字を半角に』とします。
２．「マクロの保存先」は、今開いている文書（ここでは「文書１（文書）」）を選択してください。
※「作業中のすべての文書とテンプレート」にすると、他の文書にもマクロが保存されます。
３．作成ボタンを押してください。
［４］
マクロの編集画面です。
この画面の最終行の『End Sub』のすぐ上の行に、下のコードをコピペします。
※Windows用です。
With Selection.Find
.Text = "Ａ"
.Replacement.Text = "A"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｂ"
.Replacement.Text = "B"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｃ"
.Replacement.Text = "C"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll▼ コードについての説明
コードは、３つのブロックで構成されています。○と○の部分以外は３つともすべて同じです。
（１）～（３）は、すべて同じ動きをするコードです。
（１）を見てみると、全角の「Ａ」を検索して、半角の「A」に置き換えるという指示です。
（２）と（３）も同様です。
［５］
コードをコピペし終えた画面です。
右上の「×」ボタンで一旦マクロの編集画面を閉じてください。自動で保存されます。
［６］
再度、【マクロの表示】からマクロの画面を表示させます。
［７］
あとは、「実行」を押すだけです。
これで［１］で入力した全角の「ＡＢＣ」が半角に変わります。
［８］
結果です。
比較用に入力した半角の「ABC」と同じものになっていると思います。
基本的な手順はこれで終了です。
ここでは、ABCの３文字だけでしたが、記事の最後に『全角の英数字を半角に直すコード』の完全版を用意しています。この手順で試してみてください。
少し手間をかけるだけで、全角の英数字が何千文字あっても、一瞬で半角に修正することができます。さらに、全角と半角の混在は英数字だけではないので、記号類などにも応用して使えます。
２：表記を修正する１
このマクロで文章の表記も修正することができます。
▼ 文章作成で、統一すべき文言が決まっているのであれば、マクロに設定しておくことで、簡単に正しい表記に修正することができます。
［１］
【マクロの表示】から、マクロの画面を表示させます。
【編集】を選択します。
［２］
マクロの編集画面が表示されます（※最初にコードをコピペした画面です）。
ここで以下の部分の文字を修正してください。
--------------------------------------------------
・赤枠の全角の「Ａ」を「下さい」に修正
・青枠の半角の「A」を「ください」に修正
--------------------------------------------------
→ これで「下さい」を「ください」に修正するコードができます。
修正できたら、右上の「×」ボタンでマクロの画面を閉じます。自動で保存されます。
［３］
文書に「下さい」と入力してください。
［４］
再度、【マクロの表示】からマクロの画面を表示させます。
あとは、「実行」を押すだけです。
［５］
結果です。
「下さい」が「ください」に置き換わります。
この要領で、任意の文字の置き換えができます。
３：表記を修正する２
▼ ここからは、「下さい」と「ください」の応用です。
［１］
【マクロの表示】→【編集】と進み、【マクロの編集画面】を開きます。
「Ｂを置換するコード」と「Cを置換するコード」を下にコピペします。
次のような結果になります。
［２］
「下さい」と「ください」を修正した要領で以下の文字に修正してみてくだい。
----------------------------------------
□ 頂く ⇒ □ いただく
□ 又は ⇒ □ または
□ 一つづつ ⇒ □ 一つずつ
□ 内臓 ⇒ □ 内蔵
----------------------------------------
修正できたら、右上の「×」ボタンでマクロの画面を閉じます。自動で保存されます。
［３］
文書に「下さい」「頂く」「又は」「一つづつ」「内臓」と入力します。
［４］
再度、【マクロの表示】からマクロの画面を表示させます。
あとは、「実行」を押すだけです。
［５］
結果です。
すべての文字が、置き換わっていると思います。
このようにコードの一部を修正するだけで、どんな文字にも置き換えることができます。
４：気を付けておきたいこと
■ 気を付けておきたいこと。
マクロで行った修正は強制的に上書き保存されます。「Ｃtrl+z」で取り消しができません。そのため、文書を複製してから作業を行ってください。
この点だけ気を付けておけば、あとは何の問題もなく、簡単に文章の表記や体裁を自動で変更できます。
５：全角英数字を半角にするコード
▼ 前半で紹介したコードの完全版です。使用手順は【１】～【８】と同じです。
■ このコードで修正できること
----------------------------------------
１． 全角数字０～９を半角にする
２． 全角のａ～ｚを半角にする
３． 全角のＡ～Ｚを半角にする
----------------------------------------
With Selection.Find
.Text = "１"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "２"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "３"
.Replacement.Text = "3"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "４"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "５"
.Replacement.Text = "5"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "６"
.Replacement.Text = "6"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "７"
.Replacement.Text = "7"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "８"
.Replacement.Text = "8"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "９"
.Replacement.Text = "9"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "０"
.Replacement.Text = "0"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ａ"
.Replacement.Text = "a"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｂ"
.Replacement.Text = "b"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｃ"
.Replacement.Text = "c"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｄ"
.Replacement.Text = "d"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｅ"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｆ"
.Replacement.Text = "f"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｇ"
.Replacement.Text = "g"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｈ"
.Replacement.Text = "h"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｉ"
.Replacement.Text = "i"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｊ"
.Replacement.Text = "j"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｋ"
.Replacement.Text = "k"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｌ"
.Replacement.Text = "l"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｍ"
.Replacement.Text = "m"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｎ"
.Replacement.Text = "n"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｏ"
.Replacement.Text = "o"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｐ"
.Replacement.Text = "p"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｑ"
.Replacement.Text = "q"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｒ"
.Replacement.Text = "r"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｓ"
.Replacement.Text = "s"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｔ"
.Replacement.Text = "t"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｕ"
.Replacement.Text = "u"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｖ"
.Replacement.Text = "v"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｗ"
.Replacement.Text = "w"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｘ"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｙ"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ｚ"
.Replacement.Text = "z"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ａ"
.Replacement.Text = "A"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｂ"
.Replacement.Text = "B"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｃ"
.Replacement.Text = "C"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｄ"
.Replacement.Text = "D"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｅ"
.Replacement.Text = "E"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｆ"
.Replacement.Text = "F"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｇ"
.Replacement.Text = "G"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｈ"
.Replacement.Text = "H"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｉ"
.Replacement.Text = "I"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｊ"
.Replacement.Text = "J"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｋ"
.Replacement.Text = "K"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｌ"
.Replacement.Text = "L"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｍ"
.Replacement.Text = "M"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｎ"
.Replacement.Text = "N"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｏ"
.Replacement.Text = "O"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｐ"
.Replacement.Text = "P"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｑ"
.Replacement.Text = "Q"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｒ"
.Replacement.Text = "R"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｓ"
.Replacement.Text = "S"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｔ"
.Replacement.Text = "T"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｕ"
.Replacement.Text = "U"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｖ"
.Replacement.Text = "V"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｗ"
.Replacement.Text = "W"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｘ"
.Replacement.Text = "X"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｙ"
.Replacement.Text = "Y"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ｚ"
.Replacement.Text = "Z"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchByte = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
