X-ing文本(Microsoft Word)
辛迪问是否有一种方法可以“键入”具有不同字符的单词。特别是,她想“ 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_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
(Microsoft Word是世界上最流行的文字处理软件。)本技巧(2532)适用于Microsoft Word 2007、2010和2013。您可以在此处为Word的较早菜单界面找到此技巧的版本:“ link:/ word-X-ing_Out_Text [X-ing Out Text]”。