Cindy preguntó si hay una manera de «escribir sobre» palabras con un carácter diferente. En particular, quería «x» algunos personajes. Ella no quiere tachar, pero en realidad usa el carácter «x» para escribir sobre los caracteres que ya están en el documento.

La mejor manera de hacer esto en Word es usar el campo EQ con el modificador \ o (sobreescribir). Siga estos pasos:

  1. Coloque el puntero de inserción donde desee que aparezca el texto de salida x-ed.

  2. Presione Ctrl + F9. Word inserta un conjunto de llaves de campo, con el punto de inserción en el medio de ellas.

  3. Escriba lo siguiente entre llaves de campo:

eq \o(my text,xxxxxxx)

  1. Reemplace «mi texto» con el texto que desea eliminar y asegúrese de que haya suficientes x caracteres para cubrir ese texto.

  2. Presione Mayús + F9 para contraer el campo y mostrar el resultado.

Este enfoque de campo funciona muy bien para selecciones de texto breves, y siempre puede convertirlo en una macro si tiene mucho texto que desea afectar de esta manera. La siguiente macro lleva este concepto aún más lejos: muestra los caracteres x sobreescritos en rojo y no sobreescribe los espacios:

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 agrega un solo campo para cada carácter que se sobrescribe y, por lo tanto, es apropiado para texto de casi cualquier longitud.

También hay un enfoque completamente diferente que quizás desee probar, esta vez utilizando cuadros de texto. Cree un cuadro de texto usando la barra de herramientas Dibujo.

Dentro del cuadro de texto, escriba tantos x caracteres como desee en la fuente y el tamaño deseados. Asegúrese de que el cuadro de texto esté formateado para que no tenga relleno (lo que lo hace transparente), no tenga líneas circundantes y flote sobre el texto sin ajuste de texto. Arrastre el cuadro de texto sobre el texto que se va a editar y ajústelo según sea necesario.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (3921) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

enlace: / wordribbon-X-ing_Out_Text [X-ing Out Text].