Pegar cosas desde pdf

8 envíos / 0 nuevos
Último envío
Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Pegar cosas desde pdf
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
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 9 horas 44 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: 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.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Pegar cosas desde pdf
Como siempre, excelente. Para picarte un poco más... ¿cómo se puede hacer para que no pregunte (o para que responda "No" automáticamente) si quieres extender la búsqueda al resto del documento? En las tres búsquedas, al estar limitadas a la selección (lo que es muy conveniente), termina con la pregunta y puede llevar al error de contestar que sí, con lo que podría descuadrar cosas en el resto del documento. Eso sí, la idea es perfecta. Saludos
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 9 horas 44 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: para que no pregunte

para que Word no pregunte puedes desactivar las alertas de la aplicación.

pon esto al principio de la macro:

Application.DisplayAlerts = wdAlertsNone

y vuelve a dejarlo como estaba al terminar

Application.DisplayAlerts = wdAlertsAll

Si 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.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Pegar cosas desde pdf
Resuelto (me piqué yo, jaja) Sustituimos wdFindAsk por wdFindStop en todas sus ocurrencias. Con esto la macro funciona a la perfección. La he asignado a la combinación Ctrl+Alt+B, que no tenía nada previamente asignado, según mi Word. Saludos P.D. Ya tengo a algún compañero pidiéndome las directrices para hacer lo mismo, jaja
Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: para que no pregunte
Contestamos a la vez... Creo que es mejor lo que comento abajo porque funciona únicamente en el caso en el que queremos que funcione, no? Muchas gracias, de todas maneras, como siempre. Se gana muchísima productividad simplemente conociendo algunos truquillos. Saludos
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 9 horas 44 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Pegar cosas desde pdf

Sí, mucho mejor así.

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.

Juan JHS (no verificado)
Imagen de Juan JHS
Convertir PDF a Word

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/