デジタル校正

デジタル校正入門：文章の表記や体裁を自動で変更する［ワード編］

47分47秒
デジタル校正ワード

デジタル校正の入門［ワード編］

校正の世界でもデジタル化の波は年々進んでいますが、まだまだ人に置き換わるツールは存在しません。現在の校正に関するデジタルツールは、部分部分で活用することで、その効果を最大に発揮できるものがほとんどです。

【関連記事】
 > デジタル校正の入門［エクセル編］


そんなデジタルツールですが、有料のソフトを購入したり、ネットでフリーソフトを探したりしなくても、自分で作ることができます。自分で作るといってもそんなに難しくはありません。

ここではワードのマクロを使用しますが、あらかじめマクロのコードを用意していますので、コピペと文字入力さえできれば、誰でも簡単にできるようになっています。


非常にシンプルなマクロですので、今までマクロに一度も触れたことがないという方でも、すぐに自分用にカスタマイズすることが可能です。

このマクロを使えば、表記ゆれや体裁の修正が一括でできます。検索置換の完全一致で修正しますので精度は100%です。ひと手間かけるだけで、後工程の負荷を軽減することが可能になります。

すぐに活用する機会がなくとも、知識だけでも頭に入れておいて、自分の業務で使える部分はないか探してみてください。

１：体裁を整える（全角英字を半角に直す）

最初は、体裁の一括修正を行うところから始めます。文書の体裁が修正されるだけでも、校正の負担を軽減させることができます。


【準備】

まずは、ワードで新しい文書を作成します。もしくは、既存の文書をコピーしたものを用意してください。
※マクロを使って修正したものは「Ctrl+z」で取り消しができません。


▼ ここから順を追って、全角の英字を半角に自動で直す説明をしていきます。


［１］

どこの行でも大丈夫ですので、全角で「ＡＢＣ」と入力してください。
その下に、半角で「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」で取り消しができません。そのため、文書を複製してから作業を行ってください。

これさえ気を付けておけば、あとは何の問題もなく簡単に、文章の表記や体裁を自動で変更できます。

▼ デジタル校正について、さらに興味のある方は以下を参照してみて下さい。

（１）デジタル校正ソフトウェア（PDF比較）「Proof Checker PRO」
・動画解説、デモ版がダウンロードできます。
　【公式サイト】> こちら

（２）文章校正支援ツール Just Right!6 Pro
・体験版がダウンロードできます。
　【公式サイト】> こちら

５：全角英数字を半角にするコード

▼ 前半で紹介したコードの完全版です。使用手順は（1）～（8）と全く同じです。


■ このコードで修正できること
　（１）全角数字０～９を半角にする
　（２）全角のａ～ｚを半角にする
　（３）全角のＡ～Ｚを半角にする

    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