Copiar y pegar códigos de campo

December 27

Códigos Fields pueden ser muy útiles en un documento. En algún momento, es posible que desee compartir un código de campo con alguien. Tal vez usted se está preparando un documento de capacitación que necesita para mostrar los códigos en forma de texto, o si desea enviarnos un correo electrónico el código de campo a otra persona.

El problema es que si usted simplemente copia y pega el código de campo, no es el código real que se pega; es el resultado de ese código de campo. Puede, por supuesto, mostrar el código de campo (Shift + F9), sitúe el punto de inserción dentro de las llaves, seleccionar cuidadosamente a todos los personajes, excepto la llave de cierre, y luego copiar al portapapeles.

Este enfoque puede resultar tedioso en un gran apuro, sin embargo. Un mejor enfoque es utilizar una macro para mostrar el código de campo y rellenar la información deseada en el Portapapeles. La siguiente macro hace precisamente eso:

StuffFieldCode Sub ()
Dim sField As String
Dim sTextCode As String
Dim BSFC As Boolean
Dim MyData Como DataObject
Dim sTemp As String
Dim J As Integer

Application.ScreenUpdating = False

Si Selection.Fields.Count = 1 Entonces
BSFC = Selection.Fields.Item (1) .ShowCodes
Selection.Fields.Item (1) .ShowCodes = True
sField = Selection.Text
sTextCode = ""
Para J = 1 Para Len (sField)
sTemp = mediano (sField, J, 1)
Select Case sTemp
Caso Chr (19)
sTemp = "{"
Caso Chr (21)
sTemp = "}"
Caso vbCr
sTemp = ""
End Select
sTextCode = sTextCode y sTemp
Siguiente J

Establecer MyData = Nuevo DataObject
MyData.SetText sTextCode
MyData.PutInClipboard

Selection.Fields.Item (1) .ShowCodes = BSFC
End If

Application.ScreenUpdating = True
End Sub

La macro comienza apagando la actualización de la pantalla, entonces se comprueba para asegurarse de que la selección incluye un solo campo. (Usted debe seleccionar el campo que desea antes de ejecutar la macro.) Si no contiene un solo campo, se mostrará el código de campo para ese campo, asignado a una variable (sField), y luego cogió aparte carácter por carácter. Si el personaje está examinando es el campo de la apertura abrazadera-Chr (19) -entonces se reemplaza con un aparato ortopédico normal de apertura. Si se trata de un campo de llave de cierre-Chr (21) -entonces se reemplaza con una llave de cierre regular. Por último, si el personaje es un marcador (vbCr) de fin de párrafo, a continuación, se ignora el carácter.

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

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (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í: Copiar y pegar los códigos de campo.