Rebeccaは、文の最後のコンマを「and」という単語に置き換える方法を探しています。彼女は明らかにこのタイプの編集をかなり実行する必要があり、手動で編集する必要はなく、すばやく簡単に編集を実行する方法があるかもしれないと考えました。

Wordでこの特定の編集を行う組み込みの方法はありませんが、最後のカンマを検索して削除し、目的の単語を入力する単純なマクロを作成できます。以下はそのようなマクロの例です。

Sub ReplaceLastComma()

Dim J As Integer     Dim bRep As Boolean     Dim sRaw As String

Selection.Sentences(1).Select     sRaw = Selection.Text     bRep = False     For J = Len(sRaw) To 1 Step -1         If Mid(sRaw, J, 1) = "," Then             Selection.Collapse Direction:=wdCollapseStart             Selection.MoveRight Unit:=wdCharacter, Count:=J - 1             Selection.Delete Unit:=wdCharacter, Count:=1             Selection.TypeText Text:=" and"

J = 1             bRep = True         End If     Next J     If Not bRep Then Selection.Collapse Direction:=wdCollapseStart End Sub

マクロは、現在の文（挿入ポイントが配置されている文）を選択し、文のテキストを逆方向に移動します（処理を容易にするために、テキストは変数sRawに割り当てられます）。コンマが見つかった場合は、挿入ポイントはドキュメント内のコンマの直前に配置され、コンマが削除されてから、スペースと単語「and」が入力されます。

マクロで削除しない場合は、カンマを使用すると、削除を行う行をすばやく削除する（および、移動が「J-1」ではなく「J + 1」になるようにその前の行を変更する）か、前にカンマを追加するだけです。マクロによって入力されているテキスト内のスペース

Note：

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

linkClickここでその特別なページを新しいブラウザタブで開きます 。

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（5401）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkReplacing the LastComma。