prucommercialre.com


Tratamiento de la información Pegado de un archivo PDF

Zach está en constante pegando citas de archivos PDF en el cuerpo de sus documentos de Word. Le gustaría tener una macro específicamente para pegar de PDF que pega sin ningún formato y automáticamente elimina los saltos de párrafo que están al final de cada línea del texto pegado.

Es relativamente fácil de trabajar con el texto de esta manera en una macro. Todo lo que necesitas hacer es mover la información desde el Portapapeles a una variable de cadena. Una vez que está en la variable, ya no hay ningún formato asociado con el texto y se puede buscar y reemplazar los saltos de párrafo. La siguiente macro realiza los dos pasos:

PastePDFClean Sub ()
Dim MyData Como DataObject
Dim sTextIn As String
Dim x As Integer
Dim y As Integer

Establecer MyData = Nuevo DataObject
MyData.GetFromClipboard
sTextIn = MyData.GetText

x = InStr (sTextIn, vbCr)
y = 1
Mientras que x> 0
sTextIn = Izquierda (sTextIn, x - 1) & Mid (sTextIn, x + 1)
y = x + 1
x = InStr (y, sTextIn, vbCr)
Wend

Selection.TypeText sTextIn
Establecer MyData = Nothing
End Sub

Recuerde; la macro funciona en lo que está en el Portapapeles. Así, con el fin de ejecutar la macro correctamente en una selección PDF, tiene que copiar la selección en el Portapapeles y cambiar a su documento de Word antes de ejecutar la macro.

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 (583) 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í: Procesamiento de Información Pegado de un archivo PDF.