Word原稿の校正に役立つ：文章の表記や体裁を一括修正［コピペで可能なコード付き］

2020/08/11 2022/01/19 49分34秒

Word原稿の校正に役立つ：文章の表記や体裁を一括修正［コピペで可能なコード付き］
１：体裁を整える（全角英字を半角に直す）
２：表記を修正する１
３：表記を修正する２
４：気を付けておきたいこと

Word原稿の校正に役立つ：文章の表記や体裁を一括修正［コピペで可能なコード付き］

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

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

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

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

このマクロを使えば、表記ゆれや体裁の修正が一瞬でできます。指定の文言を完全一致で検索・置換するので精度は100%です。ひと手間かけるだけで、校正作業を楽にすることができます。

テキスト原稿をワードで支給される場合、事前にデータ上で校正をしておけば、後工程の校正が楽になります。表記や体裁系の間違いは人の目で探すよりも、デジタルツール使ったほうが圧倒的に効率化できます。

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

■ この記事は、前回のエクセル編の続編になります。
エクセルでもワードでもマクロの設定の仕方は似ているので、エクセル編をご覧いただいた方はすぐに設定できると思います。

https://kousei.club/%e3%83%87%e3%82%b8%e3%82%bf%e3%83%ab%e6%a0%a1%e6%ad%a3%e3%81%ae%e5%85%a5%e9%96%80%ef%bc%9a%e6%96%87%e7%ab%a0%e3%81%ae%e8%a1%a8%e8%a8%98%e3%82%84%e4%bd%93%e8%a3%81%e3%82%92%e8%87%aa%e5%8b%95%e3%81%a7/

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

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

【準備】

まずは、ワードで新しい文書を作成します。もしくは、既存の文書をコピーしたものを用意してください。
※マクロを使って修正したものは「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

▼ コードについての説明

コードは、３つのブロックで構成されています。○と○の部分以外は３つともすべて同じです。

（1）～（3）は、すべて同じ動きをするコードです。
（1）を見てみると、全角の「Ａ」を検索して、半角の「A」に置き換えるという指示です。
（2）と（3）も同様です。

［５］

コードをコピペし終えた画面です。
右上の「×」ボタンで一旦マクロの編集画面を閉じてください。自動で保存されます。

［６］

再度、【マクロの表示】からマクロの画面を表示させます。

［７］

あとは、「実行」を押すだけです。
これで［１］で入力した全角の「ＡＢＣ」が半角に変わります。

［８］

結果です。
比較用に入力した半角の「ABC」と同じものになっていると思います。

基本的な手順はこれで終了です。

ここでは、ABCの３文字だけでしたが、記事の最後に『全角の英数字を半角に直すコード』の完全版を用意しています。この手順で試してみてください。

少し手間をかけるだけで、全角の英数字が何千文字あっても、一瞬で半角に修正することができます。さらに、全角と半角の混在は英数字だけではないので、記号類などにも応用して使えます。

２：表記を修正する１

このマクロで文章の表記も修正することができます。

▼ 文章作成で統一すべき文言が決まっているのであれば、マクロに設定しておくことで簡単に正しい表記に修正することができます。

［１］

【マクロの表示】から、マクロの画面を表示させます。
【編集】を選択します。

［２］

マクロの編集画面が表示されます（※最初にコードをコピペした画面です）。

ここで以下の部分の文字を修正してください。
--------------------------------------------------
・赤枠の全角の「Ａ」を「下さい」に修正
・青枠の半角の「A」を「ください」に修正
--------------------------------------------------
→ これで「下さい」を「ください」に修正するコードができます。
修正できたら、右上の「×」ボタンでマクロの画面を閉じます。自動で保存されます。

［３］

文書に「下さい」と入力してください。

［４］

再度、【マクロの表示】からマクロの画面を表示させます。
あとは、「実行」を押すだけです。

［５］

結果です。
「下さい」が「ください」に置き換わります。

この要領で、任意の文字の置き換えができます。

３：表記を修正する２

▼ ここからは、「下さい」と「ください」の応用です。

［１］

【マクロの表示】→【編集】と進み、【マクロの編集画面】を開きます。

「Ｂを置換するコード」と「Cを置換するコード」を下にコピペします。

次のような結果になります。

［２］

「下さい」と「ください」を修正した要領で以下の文字に修正してみてくだい。
----------------------------------------
□ 頂く　　　⇒　　□ いただく
□ 又は　　　⇒　　□ または
□ 一つづつ　⇒　　□ 一つずつ
□ 内臓　　　⇒　　□ 内蔵
----------------------------------------