Reemplazo por lotes de Word VBA

miruta?=?EsteDocumento.Ruta?&?"\"?'

midoc?=?Dir(miruta?&?" *.doc")

¿minombre?=?EsteDocumento.Nombre

¿Hacer?Mientras?Len(midoc)

Si?midoc?<>?minombre?Entonces

Establecer?curDoc?=?Documentos.Open(miruta?.Replacement.ClearFormatting

Con?Selection.Find

.Text?=?"52[0-9] {4}.[0-9]{3}"

.Replacement.Text?=?"38^&"

.Forward?=?True

.Wrap?=?wdFindContinue

.Format?=?False

.MatchCase?=?False

.MatchWholeWord?MatchByte?=?False

.MatchByte?=?False

.MatchAllWordForms?=?False

.MatchSoundsLike?=?False

.MatchWildcards?=? Verdadero

.p>Fin?Con

Selección.Find.Execute?Replace:=wdReplaceAll

curDoc.Close?True

¿Fin?If

mydoc?=?Dir

Loop

MsgBox?"¡Duang ha terminado!"

Fin?

¿Fin?