シンディは、別の文字で単語を「タイプオーバー」する方法があるかどうか尋ねました。特に、彼女はいくつかの文字を「x」アウトしたかった。彼女は取り消し線を使用したくありませんが、実際には「x」文字を使用して、ドキュメントにすでに存在する文字を上書きします。

Wordでこれを行う最良の方法は、\ o（オーバータイプ）スイッチでEQフィールドを使用することです。次の手順に従ってください：

。 x-edoutテキストを表示する場所に挿入ポインタを置きます。

。 Ctrl + F9を押します。 Wordは、フィールド中括弧のセットを挿入し、その中央に挿入ポイントを置きます。

。フィールド中括弧内に次のように入力します：

eq \o(my text,xxxxxxx)

。 「mytext」をx-edアウトするテキストに置き換え、そのテキストをカバーするのに十分なx文字があることを確認します。

。 Shift + F9を押してフィールドを折りたたんで、結果を表示します。

このフィールドアプローチは、短いテキストの選択に最適です。この方法で影響を与えたいテキストがたくさんある場合は、いつでもマクロに変換できます。次のマクロは、この概念をさらに発展させています。オーバータイプされたx文字を赤で表示し、スペースをオーバータイプしません。

Sub OverstrikeWithX2()

Dim i As Integer     MyString = Selection.Text

' Insertion point only/single character/multiple character range handler     If Selection.Characters.Count = 1 Then         Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend         If Selection.Characters.Count = 2 Then             Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend         Else             Selection.MoveLeft Unit:=wdCharacter, Count:=1         End If     Else         Selection.MoveLeft Unit:=wdCharacter, Count:=1     End If     ' end range handler

For i = 1 To Len(MyString)

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend         ' paragraph marker and space handler         If Selection.Text = Chr(13) Or Selection.Text = " " Then             While Selection.Text = Chr(13) Or Selection.Text = " "

If i = Len(MyString) Then                     Selection.MoveRight Unit:=wdCharacter, Count:=1                     Exit Sub                 Else                     i = i + 1                     Selection.MoveRight Unit:=wdCharacter, Count:=1                     Selection.MoveRight Unit:=wdCharacter, Count:=1, _                       Extend:=wdExtend                 End If             Wend         End If         ' end paragraph marker & space handler

With Selection             .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _               PreserveFormatting:=False             .TypeText Text:="eq \o("

.MoveRight Unit:=wdCharacter, Count:=1             .TypeText Text:=",x)"

.Delete Unit:=wdCharacter, Count:=1

' The next three lines turns the overstike "x" red             .MoveLeft Unit:=wdCharacter, Count:=1             .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend             .Font.Color = wdColorRed             .Fields.ToggleShowCodes             .MoveRight Unit:=wdCharacter, Count:=1         End With     Next i End Sub

このマクロは、上書きされる文字ごとに1つのフィールドを追加するため、ほぼすべての長さのテキストに適しています。

今回はテキストボックスを使用して、まったく異なるアプローチを試してみることもできます。描画ツールバーを使用してテキストボックスを作成します。

テキストボックス内に、必要なフォントとサイズで必要な数のx文字を入力します。テキストボックスが塗りつぶし（透明になる）がなく、周囲の線がなく、テキストが折り返されることなくテキストの上に浮くようにフォーマットされていることを確認してください。 x-edアウトするテキストの上にテキストボックスをドラッグし、必要に応じてサイズを変更します。

注：

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

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

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

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

linkX-ing OutText。