【コード】カーソル以降の英単語に一括でtheを追加する

一括置換を用いた翻訳(上書き翻訳)での日英翻訳に便利なマクロです。

一括置換翻訳の支援ソフト「ぱらぱら」 を用いた後の、翻訳作業にてご活用ください。

※:この記事のマクロは、後日改良いたしました。以下の記事もあわせてご覧ください。

【コード】カーソル以降の英単語に一括でtheを追加する(その2)

このマクロでできること

選択されている語句が、その選択箇所以降に記載されている場合、その語句に”the “を追記します。

その際、theを追記した語句をすべて青文字にします。

(1)pen 20を選択してマクロを実行します。

実行前

(2)マクロの実行後です。

選択範囲以降のpen 20がthe pen 20になり、青文字になります。

実行後

マクロの解説

置換の範囲を、文書全体ではなく、カーソル位置以降とするため青文字のように設定しています。

.Forward = True
.Wrap = wdFindStop
.Execute Replace:=wdReplaceAll

.Forwardプロパティや.Wrapプロパティの解説は、以下の記事をご覧ください。

「検索と置換」ダイアログの検索方向とマクロとの関係

マクロ


Sub 一括the()

 Dim myText As String
 Dim myRange As Range

 Set myRange = Selection.Range

 '文字列をmyTextに格納
 myText = Trim(Selection.Text)

 '選択を解除して置換開始位置を選択した文字列の末尾へ
 myRange.Collapse direction:=wdCollapseEnd

 With myRange.Find
  .Text = myText
  .Replacement.Text = "the " & myText
  .Replacement.Font.ColorIndex = wdBlue
  .Forward = True
  .Wrap = wdFindStop
  .Execute Replace:=wdReplaceAll
 End With

 Set myRange = Nothing

 '選択を解除
 Selection.Collapse direction:=wdCollapseEnd

End Sub

トップへ戻る