辛迪问是否有一种方法可以“键入”具有不同字符的单词。特别是,她想“ 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]。