Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/01/2007, 04:45
Isa Tor
 
Fecha de Ingreso: enero-2007
Mensajes: 14
Antigüedad: 18 años, 3 meses
Puntos: 0
Exclamación Find/Replace Macros

He creado una macro para que busque unas letras y las reemplaze por unos números, el problema es que sólo me reemplaza los caracteres de la primera página de mi documento, si este documento tiene distintas páginas y secciones que instrucción tengo que darle para q cambie en todo automáticamente. Además el texto que quiero reemplazar está a pie de página dentro de una tabla. Aqui tenéis lo que he hecho:

Sub Replace()
'
' Replace Macro
' Macro creada el 18/01/2007 por itorres
'
With Selection.Find
.text = "ZZZ"
.Replacement.text = "000/2444/222"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub[/COLOR]