辛迪问是否有一种方法可以“键入”具有不同字符的单词。特别是，她想“ x”掉一些字符。她不想删除线，但实际上使用“ x”字符在文档中已经存在的字符上键入。

在Word中执行此操作的最佳方法是将EQ字段与\ o（改型）开关一起使用。请按照下列步骤操作：

。将插入指针定位在要显示x-ed文本的位置。

。按Ctrl + F9。 Word插入一组字段括号，插入点位于它们中间。

。在大括号内键入以下内容：

eq \o(my text,xxxxxxx)

。将“我的文字”替换为您要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

该宏为每个要改写的字符添加一个字段，因此适用于几乎任何长度的文本。

您可能还想尝试一种完全不同的方法，这次使用文本框。使用绘图工具栏创建一个文本框。

在文本框内，以所需的字体和大小键入所需的x个字符。确保文本框的格式设置为没有填充（使其透明），没有周围的行以及没有文本环绕的文本上方的浮动。将文本框拖到要X-ed的文本上，并根据需要调整大小。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

链接：/ wordribbon-WordTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（3921）适用于Microsoft Word 97、2000、2002和2003。您可以找到用于Word（Word 2007）的功能区界面的本技巧的一个版本。和更高版本）在这里：

链接：/ wordribbon-X-ing_Out_Text [X-ing Out Text]。