¿Cómo asignar plantilla a documento creado?

Hola, te paso el código que podría ayudarte.
Este código lo ejecutas en Word desde un documento en blanco.
Te abre el archivo *.txt, lo copia en un .doc le aplica la plantilla y lo
guarda como .doc

Verifica en el código los lugares donde tienes los archivos y la plantilla,
tienes que colocar el camino que corresponde.

Sub Macro1()

Dim Archivo As String

Dim Documento As Document

Archivo = Dir("C:\Prueba\Docs\*.txt")

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

Do While Len(Archivo) <> 0

Set Documento = Documents.Open(FileName:="C:\Prueba\Docs\" & 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\Administrador\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:\ Prueba\Docs\" & replace(Archivo,".txt",".doc")

'repite el mismo camino donde tienes los archivos, te los grabará como
.doc

ActiveDocument.Close

Archivo = Dir

Loop

End Sub


Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"FMI" escribió en el mensaje
news:

Tengo una aplicación de pedidos a proveedores que genera documentos de
texto
(.txt), y necesito incluir el membrete de nuestra empresa de fondo para lo
cual he creado una plantilla, pero como el documento txt no está creado
por
Word tiene el fondo en blanco, y al ser muchos documentos debe hacerlo de
forma automática y llamarlos desde MSDOS, ¿podría unirlos arrancando desde
la
línea de comandos?

gracias por leer este mensaje.