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

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

Sub PastePDFClean()

Dim MyData As DataObject     Dim sTextIn As String     Dim x As Integer     Dim y As Integer

Set MyData = New DataObject     MyData.GetFromClipboard     sTextIn = MyData.GetText

x = InStr(sTextIn, vbCr)

y = 1     While x > 0         sTextIn = Left(sTextIn, x - 1) & Mid(sTextIn, x + 1)

y = x + 1         x = InStr(y, sTextIn, vbCr)

Wend

Selection.TypeText sTextIn     Set MyData = Nothing End Sub

Recuerda; la macro funciona en lo que esté en el Portapapeles. Por lo tanto, para ejecutar la macro correctamente en una selección de PDF, debe copiar la selección al Portapapeles y cambiar a su documento de Word antes de ejecutar la macro.

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

link: / wordribbon-Processing_Information_Pasted_from_a_PDF_File [Información de procesamiento pegada desde un archivo PDF].