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:

  1. Positionieren Sie den Einfügezeiger an der Stelle, an der der x-ed out-Text angezeigt werden soll.

  2. Drücken Sie Strg + F9. Word fügt eine Reihe von Feldklammern ein, mit der Einfügemarke in der Mitte.

  3. Geben Sie Folgendes in die Feldklammern ein:

eq \o(my text,xxxxxxx)

  1. 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.

  2. 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 mit der Zeichnungssymbolleiste.

Geben Sie in das Textfeld 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), keine umgebende Linie aufweist und ohne Textumbruch über Text schwebt. Ziehen Sie das Textfeld über den Text, der ausgeblendet 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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (3921) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

X-ing Out Text.