Aforo, Mis Foros  
Mostrar/Ocultar
Mostrar/Ocultar Menú principal
 Foros
 Buscar
 Foro
 Inicio Grupos
 Grupos
 Opciones de Miembros Web

Mostrar/Ocultar Add

Mostrar/Ocultar Info de Usuario

Bienvenido Anónimo

Usuario
Contraseña

Lista de miembros:
Ultimo: nimmerfall
Nuevos Hoy: 0
Nuevos Ayer: 0
Total: 205

Gente en línea:
Miembros: 0
Visitantes: 24
Total: 24
Donde estan todos:
 Visitantes:
01: Foro
02: Estadística
03: Estadística
04: Mi Cuenta
05: Foro
06: Foro
07: Foro
08: Mi Cuenta
09: Foro
10: Estadística
11: Foro
12: Foro
13: Foro
14: Inicio
15: Mi Cuenta
16: Foro
17: Foro
18: Mi Cuenta
19: Estadística
20: Foro
21: Estadística
22: Foro
23: Foro
24: Foro

Administradores conectados:

No hay Administradores conectados!

Mostrar/Ocultar Alianza PequeSites

Mostrar/Ocultar Encuesta
¿Encuentras util Aforo?

Si, por el Contenido
100 %100 %100 %
Si, por el Aspecto
0 %0 %0 %
No, por el Contenido
0 %0 %0 %
No, por el Aspecto
0 %0 %0 %
No se
0 %0 %0 %
Resultados :: Encuestas

votos: 5
Comentarios: 0

Macro VBA Para Limpiar Texto De PDF A DOC O Txt - Foro: Lenguajes de programacion y Bases de Datos
Macro VBA para limpiar texto de PDF a DOC o Txt
Lenguajes de programacion, Bases de Datos, Sistemas Operativos y recursos tecnicos avanzados.

Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
aforo
Experto
Experto


Registrado: Feb 13, 2008
Mensajes: 134

EnvioPublicado: Vie Feb 16, 2018 7:44 pm    Asunto: Macro VBA para limpiar texto de PDF a DOC o Txt Responder citando

Macro VBA para Word que limpia retornos de carro anómalos en texto procedente de Word. No es perfecta pero al menos hace el 90% del trabajo.

Code::

Sub JoinLowercaseLine()
' Macro Word para limpiar retornos de carro de texto de PDF
    Rem PASO 1. Sustituir espacios de no separación por espacios normales.
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Rem PASO 4.1 Elimino espacios antes de minuscula.
    With Selection.Find
        .Text = "[^13^l^t] {1;}([a-z])"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
' Mio
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^phttp"
        .Replacement.Text = "^pWeb: http"
        .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 = "^pwww"
        .Replacement.Text = "^pWeb: www"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
' fin mio

    Rem PASO 2. Segundo, unimos a la anterior linea las lineas que empiezan por lowercase (minuscula).
    With Selection.Find
        .Text = "([^13^l^t])([a-z])"
        .Replacement.Text = " \2"
        ' .Replacement.Text = "\1$popo$\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Rem PASO 3. Eliminar todos los espacios redundantes.
    With Selection.Find
        .Text = "( ){1;}"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Volver arriba
Ver perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT + 1 Hora



Cambiar a:  


Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
No Puedes adjuntar archivos en este foro
Tu puedes descargar archivos en este foro


Todo lo que aquí se encuentra es gratuito y esta a la disposicion de los usuarios que lo necesiten. Los comentarios son responsabilidad de los usuarios que los envian. En caso de alguna infracción, no dude en contactar con los moderadores o con el Administrador.
The logos and trademarks used on this site are the property of their respective owners. We are not responsible for comments posted by our users, as they are the property of the poster.
Aviso Legal - Privacidad

Interactive software released under GNU GPL, Code Credits, Privacy Policy

White Theme by WebNaranja.com