X-ing Out Text (Microsoft Word)
Cindy fragte, ob es eine Möglichkeit gibt, Wörter mit einem anderen Zeichen zu „überschreiben“. Insbesondere wollte sie einige Zeichen „x“. Sie möchte kein Durchstreichen durchführen, sondern das Zeichen „x“ verwenden, um Zeichen zu überschreiben, die bereits im Dokument enthalten sind.
Der beste Weg, dies in Word zu tun, besteht darin, das EQ-Feld mit dem Schalter \ o (Übertyp) zu verwenden. Befolgen Sie diese Schritte:
-
Positionieren Sie den Einfügezeiger an der Stelle, an der der x-ed out-Text angezeigt werden soll.
-
Drücken Sie Strg + F9. Word fügt eine Reihe von Feldklammern ein, mit der Einfügemarke in der Mitte.
-
Geben Sie Folgendes in die Feldklammern ein:
eq \o(my text,xxxxxxx)
-
Ersetzen Sie „Mein Text“ durch den Text, den Sie x-ed ausgeben möchten, und stellen Sie sicher, dass genügend x-Zeichen vorhanden sind, um diesen Text abzudecken.
-
Drücken Sie Umschalt + F9, um das Feld zu reduzieren und das Ergebnis anzuzeigen.
Dieser Feldansatz eignet sich hervorragend für die Auswahl kurzer Texte. Sie können ihn jederzeit in ein Makro konvertieren, wenn Sie viel Text haben, den Sie auf diese Weise beeinflussen möchten. Das folgende Makro führt dieses Konzept noch weiter: Es zeigt die Überschreibzeichen x in Rot an und überschreibt keine Leerzeichen:
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
Das Makro fügt für jedes Zeichen, das überschrieben wird, ein einzelnes Feld hinzu und eignet sich daher für Text mit nahezu beliebiger Länge.
Es gibt auch einen ganz anderen Ansatz, den Sie vielleicht ausprobieren möchten, diesmal mithilfe von Textfeldern. Erstellen Sie ein Textfeld und geben Sie darin so viele x-Zeichen wie gewünscht in der gewünschten Schriftart und Größe ein. Stellen Sie sicher, dass das Textfeld so formatiert ist, dass es keine Füllung aufweist (wodurch es transparent wird), keinen Rand aufweist und ohne Textumbruch über Text schwebt. Ziehen Sie das Textfeld über den Text, der x-ediert werden soll, und passen Sie ihn nach Bedarf an.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (2532) gilt für Microsoft Word 2007, 2010 und 2013.
Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier: X-ing Out Text.