Hola
En muchas ocasiones, principalmente para copiar "rellenos", tengo que copiar textos que tengo en diferentes pdf a mi documento de Word (ya sabemos eso de que copiar de uno es plagio, y copiar de muchos es investigación :P )
El pegado hay que hacerlo con la opción "Pegado especial" y luego "Texto sin formato" para que mantenga el estilo del documento. Sin embargo, Adobe tuvo la feliz idea de introducir saltos de línea al final de cada línea (no sé cómo se les ocurrió) de manera que al pegar el Word sale siempre un retorno de carro y salto de línea en lugares donde no debería haberlo.
Al final, siempre hay que hacer un repaso manual con ojo crítico, pero ahorraría mucho tiempo poder buscar y sustituir los saltos de línea por un espacio.
Esto no sería problema con la opción sustituir, si no fuera porque no hay que sustituir todos los saltos de línea, sino únicamente aquellos que no vayan precedidos de un punto (los párrafos suelen terminar en un punto y aparte. Si se da la casualidad de que la línea en pdf termina en un punto y seguido, habría que corregirlo a mano)
La pregunta es: ¿Es posible hacer esto en Word?
Un saludo
Mar, 16/08/2011 - 10:11
#1
Pegar cosas desde pdf
El cuadro de búsqueda de Word tiene una opción para emplear caracteres comodín, pero entonces no te deja buscar marcas de párrafo, así que no vale.
prueba a hacerlo en varios pasos (siempres podrás crear una macro para hacerlo por tí)
-Primero buscas los finales de párrafo auténticos, los que tienen un punto delante. Busca .^p y reemplázalo por algo raro que no vaya a estar en otra parte del documento, por ejemplo por seis signos de dolar seguidos $$$$$$ (en mis documentos nunca aparece esto)
-Elimina ahora todos los saltos de párrafo reemplazándolos por un espacio (desaparecen todos los párrafos y se quedan en uno).
-Por último, reemplaza los dólares que pusimos antes por un punto y una márca de párrafo.
a ver qué tal.
He grabado una macro que busca en la selección, y queda así:
Sub QuitarMarcasParrafoPDF()
'
' QuitarMarcasParrafoPDF Macro
' convierte marcas de párrafo en espacios, salvo que vayan precedidos por un punto.
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ".^p"
.Replacement.Text = ".$$$necesitomas$$$"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "$$$necesitomas$$$"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
para que Word no pregunte puedes desactivar las alertas de la aplicación.
pon esto al principio de la macro:
Application.DisplayAlerts = wdAlertsNoney vuelve a dejarlo como estaba al terminar
Application.DisplayAlerts = wdAlertsAllSi no hay selección lo aplica a todo el documento, supongo que sería bueno poner una comprobación antes de empezar o mostrar un mensaje de advertencia, por si acaso.
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
Sí, mucho mejor así.
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
Puedes descargarte el programa UniPDF, que convierte los archivos PDF a archivos Word automáticamente y en segundos. Es gratuito y lo puedes descargar en la página oficial del programa:
http://unipdf.com/