Hola de nuevo,
Hace poco pedí ayuda para un vbs aquí y me lo solucionasteis muy rapido y bien, ahora otra vez ando con un problema parecido aunque esta vez es vba.
He estado mirando todo lo que he podido pero no he encontrado nada que me aclarase, si cosas parecidas pero no algo que me ayudara a acabarlo
Estoy intentando ver si puedo hacer un vba que reemplace la fecha de una cabecera por otra en varios documento .doc
El tema esta en que remplazara la fecha de la cabecera ( con este formato: 22/02/2014 ) por otra del mismo formato. La entrada de la fecha por la que se va a remplazar me da igual que este en el mismo script o que la pida al ejecutar.
Hasta ahora tengo hecho algo asi:
Sub FindAndReplaceFirstStoryOfEachType()
Set objRegEx = CreateObject("vbscript.regexp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.MultiLine = True
Set wdDoc = wdApp.Documents.Open("C:\Nueva carpeta\*.doc")
With wdDoc.Content.Find
.Text = "([1-31]{1,3})/([1-12]{1,3})/([2010-2016]{10,20})"
.Replacement.Text = "<fecha actual>"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End Sub
He probado varias cosas y no doy con el formato adecuado en .Text para que me lo remplace y no consiguo que se aplique a la cabecera.
Espero que me podias ayudar tan bien como la ultima vez
Saludos