多くの異なるドキュメントには、その構築に関する多くの異なる要件があります。たとえば、特定の繰り返し単語を角かっこで囲んで目立たせる必要があるドキュメントがあるとします。 (一部の技術マニュアルでは、[Enter]キーなどのキーストロークを指定するためにこの規則を使用しています。)

このような必要がある場合は、テキストを入力してから戻って、後で角かっこを追加すると便利な場合があります。これは、マクロが追加を行うのに役立つ場合がある場所です。たとえば、単語を選択して(ダブルクリック)、角かっこを追加するマクロを実行できます。次のマクロは、このタスクを簡単に実行します。

Sub AddBrackets()

Dim iCount As Integer     iCount = 1     While Right(Selection.Text, 1) = " " Or _       Right(Selection.Text, 1) = Chr(13)

Selection.MoveLeft Unit:=wdCharacter, Count:=1, _           Extend:=wdExtend         iCount = iCount + 1     Wend

Selection.InsertAfter "]"

Selection.InsertBefore "["

Selection.MoveRight Unit:=wdCharacter, Count:=iCount End Sub

マクロは、選択の最後にあるスペースまたは段落記号を補正します。実行が完了すると、挿入ポイントは元の選択の最後に残ります。マクロは、キーボードショートカットまたは linkクイックアクセスツールバーのいずれかに割り当てることができます。

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(12055)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス: