Aplicar una plantilla a todos los documentos de un repositorio

Juan el siguiente código lo tienes que pegar en un documento en blanco, y ejecutar la
macro, te abrirá los documentos que tú indiques en el camino que corresponde a la línea de
"Archivo" (lee el código está documentado).
También tienes que modificar el caminno donde quieres que deje los nuevos documentos y
donde se encuentra tu nueva plantilla..

Asignar plantilla a documentos por código

Sub Macro1()

Dim Archivo As String

Dim Documento As Document

Archivo = Dir("C:\Documents and Settings\Nilda\Mis documentos\Prueba\*.doc")

'en la línea anterior tienes que indicar el camino donde tendrás los documentos
dejando el *.doc

Do While Len(Archivo) <> 0

Set Documento = Documents.Open(FileName:="C:\Documents and Settings\Nilda\Mis
documentos\Prueba\" & Archivo)

'y en esta también indicar el mismo camino de tus archivos dejando el & Archivo

Selection.WholeStory

Selection.Copy

Documents.Add Template:= _

"C:\Documents and Settings\Nilda\Datos de
programa\Microsoft\Plantillas\ConEnca.dot" _

, NewTemplate:=False, DocumentType:=0

'Y en esta también tienes que ver donde tienes guardada tu plantilla y modificar

Selection.PasteAndFormat (wdPasteDefault)

Documento.Close

ActiveDocument.SaveAs "C:\Documents and Settings\Nilda\Mis documentos\Prueba\" &
Archivo

'repite el mismo camino donde tienes los archivos

ActiveDocument.Close

Archivo = Dir

Loop

End Sub


Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol
"Juan" escribió en el mensaje
news:bm3ej1$i5hfl$

Hola a todos,

¿es posible aplicar una plantilla nueva a una serie de documentos de una
carpeta, de modo que no sea necesario aplicar los cambios uno a uno?

Gracias y un saludo

Juan