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 Subantes 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