Detectar el punto "." al final del parrafo

Publicado en 'Programación' por telu, 15 Nov 2008.





  1. telu

    telu Miembro nuevo

    Registro:
    23 Jul 2007
    Mensajes:
    18
    Likes:
    0




    Hola.
    Como puedo hace una macro en word para recorrer cada uno de los parrafos del documento, verificar si al final hay un punto "." ;y si hay, pasar al parrafo siguiente; y si no hay punto, formar un solo parrafo con el parrafo siguiente.

    Lo que quiero hacer con esto es corregir los margenes de un documento PDF que al copiar y pegar en word, no respeta los margenes que le doy. Parece que el pdf viene con un parrafo por linea, por lo tanto, por mas que aumente el margen, las lineas de abjo no se reacomodan para ocupar el espacio vacío.

    Supogo que esto se puede solucionar facilmente con una macro que haga lo que explique al principio. Si hay otra forma (que no sea comprando un programa para convertir de pdf a doc), me gustaría saberla.

    Muchas gracias desde ya.
    Saludos
     


  2. telu

    telu Miembro nuevo

    Registro:
    23 Jul 2007
    Mensajes:
    18
    Likes:
    0
    Ya hice la macro. Aqui esta:
    Public Sub unirParrafos()
    Dim Pfo As Paragraph, Rg As Range

    For Each Pfo In ActiveDocument.Paragraphs
    Set Rg = ActiveDocument.Range(Pfo.Range.Start, Pfo.Range.End)
    If Right(Rg.Text, 2) <> "." + Chr(13) Then
    Rg.Find.Text = "^p":
    Rg.Find.Replacement.Text = " "
    Rg.Find.Execute Replace:=wdReplaceOne
    End If
    Next
    End Sub
     
  3. DáV-S_0

    DáV-S_0 Miembro nuevo

    Registro:
    15 Dic 2007
    Mensajes:
    2
    Likes:
    0
    Primera ves k hago ejecuto un macro :P la verdad no asisti a clase ese Dia :P Ajajaja Gracias por el Macro Xvre!!