Los códigos de campo pueden ser muy útiles en un documento. En algún momento, es posible que desee compartir un código de campo con alguien. Quizás está preparando un documento de capacitación que necesita mostrar los códigos como texto, o desea enviar por correo electrónico el código de campo a otra persona.

El problema es que si simplemente copia y pega el código de campo, no es el código real el que se pega; es el resultado de ese código de campo. Por supuesto, puede mostrar el código de campo (Mayús + F9), colocar el punto de inserción entre las llaves, seleccionar cuidadosamente todos los caracteres excepto la llave de cierre y luego copiar al Portapapeles.

Sin embargo, este enfoque puede volverse tedioso con mucha prisa. Un mejor enfoque es usar una macro para mostrar el código de campo y guardar la información deseada en el Portapapeles. La siguiente macro hace precisamente eso:

Sub StuffFieldCode()

Dim sField As String     Dim sTextCode As String     Dim bSFC As Boolean     Dim MyData As DataObject     Dim sTemp As String     Dim J As Integer

Application.ScreenUpdating = False

If Selection.Fields.Count = 1 Then         bSFC = Selection.Fields.Item(1).ShowCodes         Selection.Fields.Item(1).ShowCodes = True         sField = Selection.Text         sTextCode = ""

For J = 1 To Len(sField)

sTemp = Mid(sField, J, 1)

Select Case sTemp                 Case Chr(19)

sTemp = "{"

Case Chr(21)

sTemp = "}"

Case vbCr                     sTemp = ""

End Select             sTextCode = sTextCode & sTemp         Next J

Set MyData = New DataObject         MyData.SetText sTextCode         MyData.PutInClipboard                  Selection.Fields.Item(1).ShowCodes = bSFC     End If

Application.ScreenUpdating = True End Sub

La macro comienza desactivando la actualización de la pantalla, luego verifica para asegurarse de que la selección incluya solo un campo. (Debe seleccionar el campo que desea antes de ejecutar la macro). Si contiene un solo campo, se muestra el código de campo para ese campo, se asigna a una variable (sField) y luego se selecciona carácter por carácter. Si el carácter que se está examinando es la llave de campo de apertura — Chr (19) – entonces se reemplaza con una llave de apertura regular. Si es una llave de campo de cierre, Chr (21), entonces se reemplaza con una llave de cierre normal. Por último, si el carácter es un marcador de fin de párrafo (vbCr), se ignora el carácter.

Finalmente, el método PutInClipboard se usa para rellenar la versión de texto del código de campo en el Portapapeles. A continuación, puede utilizar un comando de pegado normal (Ctrl + V) para pegar el código de campo en un documento, un correo electrónico u otro programa.

_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 (3844) 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í:

link: / wordribbon-Copying_and_Pasting_Field_Codes [Copiar y pegar códigos de campo].