Terry Saito

【ワイルドカード】強制的に１行間隔にする

節の間の改行数に関係なく、一律で１行間隔にします（空白行を１行入れる）。

「検索する文字列」は以下のように記述します。改行が１つ以上連続するものを固まりとして検索します。

^13{1,}

「置換後の文字列」には以下の記述をします。上記でヒットした改行の固まりを改行２つで置換します。

^p^p

これで、すべてが１行間隔に置き換わります。もし、２行間隔にしたい（空白行を２つ差し込む）時は、「置換後の文字列」を ^p^p^p と３つ並べれば良いことになります。

【ワイルドカード】余分な改行を削除する

原稿ファイルの処理において、時々、余分な改行を削除したいことがあります。そんなときは以下のワイルドカードを使用します。

まず、「検索する文字列」に以下の文字列を入れます。
改行(^13)が２つ以上連続({2,})するものを検索します。

^13{2,}

そして、「置換後の文字列」に以下の文字列を入れます。
上記でヒットした改行（の固まり）を、１つの改行(^p)へ置き換えてやります。

^p

もし、ソフトリターン(^11)も同時に削除対象にしたい場合は、「検索する文字列」を以下のように記述するといいです。

[^11^13]{2,}

ちなみに、PDFファイルからコピペしたり変換した場合、ソフトリターンや改行、時に半角スペースや全角スペースが混在していることがあります。その場合は、「【ワイルドカード】改行前の余分なスペースを除去する」を事前に実行してから、上記のワイルドカードを実行すれば良いです。

また、この記述方法を変化させれば、例えば、１行間隔に空白１行を差し込むと言うこともできます。
その方法は、「【ワイルドカード】強制的に１行間隔にする」に書いてありますので、参考にしてください。

【ワイルドカード】特定の見出し行の前に空白行が入っているかをチェックする

前回の「【ワイルドカード】特定の見出し行の後に空白行が入っているかをチェックする」の応用編です。今度は、見出し行の前に空白行が入っているかどうかをチェックします。このケースを検索するワイルドカードの記述例を以下に示します。

前回同様、英文で「TITLE OF THE INVENTION」の前に空白行が入っていないものを検索するには、「検索する文字列」で以下のように記述します。

[!^13]^13TITLE OF THE INVENTION

解説）
改行を検索する際は ^13 を使いますので、ここでは分かり易くするために、改行を ^13 で表します。

(正)
A quick brown fox jumps over the lazy dog.^13
^13
TITLE OF THE INVENTION

(誤)
A quick brown fox jumps over the lazy dog.^13
TITLE OF THE INVENTION

見出し行の前に改行(^13)が２つ連続しているのが正しいので、改行が１つしかないものを検索すれば良いことになります。

ここでは角括弧[ ]は必須です。^13!^13 では正しく検索されません。

言語が変わっても以下のように記述すれば検索できます。

[!^13]^13見出し

何かの文字列の前に空白行があることを確認したいときは、この記述を覚えておくと便利です。

【ワードマクロ】カーソルのある段落に蛍光ペンを付ける

私が仕事で使っているワードマクロをご紹介。
「マクロの記録」を使って作ったお行儀のよくないスクリプトですのでご容赦を。

このマクロは、カーソルのある段落を自動で範囲指定して蛍光ペンをつけるだけのマクロです。また、実行するたびに色が変わり、10色変化します。11回目に蛍光ペンなしに戻ります。（蛍光ペン色で字が潰れるのが嫌なので、10色に限定するようなことをやっています(笑)）

Sub HighLight2Paragraph()
Dim ColorLoop As Integer
On Error Resume Next
Selection.MoveUp unit:=wdParagraph, Count:=1
Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend

ColorLoop = Selection.Range.HighlightColorIndex - 1
If ColorLoop < 0 Then ColorLoop = 7
If ColorLoop = 2 Then ColorLoop = 14
If ColorLoop = 9 Then ColorLoop = 0
Selection.Range.HighlightColorIndex = ColorLoop
End Sub

私はショートカットキーへ登録して、翻訳チェックをしている時に目印付けの代わりに使っています。

嫌だ、行単位にしてくれ！という方は、以下のスクリプトを使ってくださいませ。

Sub HighLight2Line()
Dim ColorLoop As Integer
On Error Resume Next
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend

ColorLoop = Selection.Range.HighlightColorIndex - 1
If ColorLoop < 0 Then ColorLoop = 7
If ColorLoop = 2 Then ColorLoop = 14
If ColorLoop = 9 Then ColorLoop = 0
Selection.Range.HighlightColorIndex = ColorLoop
End Sub

【ワイルドカード】特定の見出し行の後に空白行が入っているかをチェックする

スタイルガイドに「特定の見出し行の後に、必ず空白行を入れること」となっているとします。このルールが守られていないケースを検索するワイルドカードの記述例を以下に示します。

例えば、英文で「TITLE OF THE INVENTION」の後に空白行が入っていないものを検索するには、「検索する文字列」で以下のように記述します。

TITLE OF THE INVENTION^13[!^13]

解説）
見出し行の後に空白行がある状態とは、見出し文字列の後ろに改行が２つ連続していることになります。つまり、２つ目が改行でないものを検索すれば良いことになります。

改行を検索する際は ^13 を使いますので、ここでは分かり易くするために、改行を ^13 で表します。

(正)
TITLE OF THE INVENTION^13
^13
A quick brown fox jumps over the lazy dog. The fox has wings …

(誤)
TITLE OF THE INVENTION^13
A quick brown fox jumps over the lazy dog. The fox has wings…

２つ目が改行ではない、即ち２つ目に ^13 がないものを検索すれば良いことになります。「改行でない」は「^13ではない」と記述すること(^13を否定してやること)で表すことができますので、否定の際に使用する「!」を先頭に入れて、 [!^13] とすればよいわけです。

ここでは角括弧[ ]は必須です。^13!^13 では正しく検索されません。

言語が変わっても以下のように記述すれば検索できます。

見出し^13[!^13]

何かの文字列の後に空白行があることを確認したいときは、この記述を覚えておくと便利です。

では、特定の見出しの後に空白行がないときに、強制的に空白行を入れる方法を次に説明します。ここでは例として「TITLE OF THE INVENTION」の後に空白行が入っていないものを検索して、強制的に空白行を入れます。

検索する文字列

(TITLE OF THE INVENTION)^13([!^13])

上述との違いは、TITLE OF THE INVENTION と [!^13] をそれぞれ括弧()で閉じたことです。()で囲うことにより、その中の情報がそれぞれ\1と\2へ代入され、次の「置換後の文字列」の中で使用できるようになります。

置換後の文字列

\1^p^p\2

ここの\1には、先のTITLE OF THE INVENTIONが入っています。\2には、改行ではない何かが入っています。そして、それらの間に改行^pを２回入れることで、以下のような形になります。

TITLE OF THE INVENTION(改行)
(改行)
(改行でない何か)

ワイルドカードを使った検索・置換の準備

%e3%82%b9%e3%82%af%e3%83%aa%e3%83%bc%e3%83%b3%e3%82%b7%e3%83%a7%e3%83%83%e3%83%88-2016-10-05-21-48-51 マイクロソフトワードを立ち上げた状態で CTRL + F もしくは CTRL + H を押すと、画像のような「検索と置換」というウインドウが現れます。