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

Vaya, muchas gracias... es una macro muy útil!!!!


Nilda Beatriz Díaz wrote:

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

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

;-DD

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

Vaya, muchas gracias... es una macro muy útil!!!!


Nilda Beatriz Díaz wrote:
> 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
>
>
>> 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