03/02/2003, 14:58
|
| | | Fecha de Ingreso: agosto-2002
Mensajes: 230
Antigüedad: 22 años, 3 meses Puntos: 1 | |
| Este código sustituye todos los "hola" que haya por "adios", espero que te sea de ayuda
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "hola"
.Replacement.Text = "adios"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Un saludo |