X-ing Out Text (Microsoft Word)
Cindy ha chiesto se esiste un modo per “digitare sopra” parole con un carattere diverso. In particolare, ha voluto “x” fuori alcuni personaggi. Non vuole fare il barrato, ma in realtà usa il carattere “x” per digitare sopra i caratteri già nel documento.
Il modo migliore per farlo in Word è utilizzare il campo EQ con l’opzione \ o (sovrascrittura). Segui questi passaggi:
-
Posiziona il puntatore di inserimento nel punto in cui desideri che appaia il testo x-ed out.
-
Premi Ctrl + F9. Word inserisce una serie di parentesi graffe di campo, con il punto di inserimento al centro di esse.
-
Digita quanto segue tra le parentesi graffe del campo:
eq \o(my text,xxxxxxx)
-
Sostituisci “il mio testo” con il testo che vuoi x-ed assicurati che ci siano abbastanza x caratteri per coprire quel testo.
-
Premi Maiusc + F9 per comprimere il campo e visualizzare il risultato.
Questo approccio al campo funziona alla grande per selezioni di testo brevi e puoi sempre convertirlo in una macro se hai molto testo che desideri modificare in questo modo. La seguente macro porta questo concetto anche oltre: mostra i caratteri x in sovrascrittura in rosso e non sovrascrive gli spazi:
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
La macro aggiunge un singolo campo per ogni carattere sovrascritto ed è quindi appropriata per testo di qualsiasi lunghezza.
C’è anche un approccio completamente diverso che potresti provare, questa volta usando le caselle di testo. Crea una casella di testo utilizzando la barra degli strumenti Disegno.
All’interno della casella di testo, digita tutti i caratteri x desiderati nel carattere e nella dimensione desiderati. Assicurati che la casella di testo sia formattata in modo che non abbia riempimento (il che la rende trasparente), non abbia una linea circostante e fluttui sul testo senza ritorno a capo. Trascina la casella di testo sul testo da modificare e ridimensiona se necessario.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.
WordTips è la tua fonte di formazione economica su Microsoft Word.
(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (3921) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui: