martes, 26 de junio de 2012

Reemplazar punto y coma por Enter con macros

hola, aqui les traigo un truco que encontre por Internet muy util para reemplazar un punto y coma por enter, por ejemplo si tuvieran correos de la siguiente forma:

borre los correos para proteger la identidad de sus dueños, pero imaginen si tuvieran una lista de 20000 correos separados por punto y coma pero deseamos que esten uno debajo de otro para hacer una lista o cual sea el motivo, seria muy trabajoso separarlos uno a uno, bien para estos casos de listas de correo lo que hacemos es copiar esta lista a Word, una vez aqui pulsamos Alt+F11, se nos abrira el editor de Visual Basic, una vez aqui vamos a Insertar->Modulo

una vez aqui se nos abrira una ventana, lo siguiente que haremos sera escribir esta macro:

Sub reemplazar()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "; "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
antes de ejecutar esta macro asegurense de haber seleccionado en el Word el texto que desean modificar de lo contrario no pasara nada. Bueno, una vez seleccionado presionan F5 o presionan el triangulo verde y quedaria asi:


en caso no sea punto y coma sino coma u otro caracter solo modifican estas 2 lineas
.Text = "; "
.Replacement.Text = "^p"
^p este caracter es el enter o salto de linea. Aqui colocan el caracter por el que deseen reemplazar, espero les sirva.

0 comentarios:

Publicar un comentario