cmarti

Maybe you can use this.

The following code will attach the template: E:\MiscInfo.dot
to the document: E:\invoices\miscinfo\mydoc.doc
using the function: ChangeTemplate()

Some strange things to observe:
- The document can be protected and the attached template is stil changed.
- BUT the template you attach may not be protected ???

So if the template is protected you must unprotect it before running the script, and protect it again when you are finished.

code:
Break On
 
ChangeTemplate("E:\invoices\miscinfo\mydoc.doc","E:\MiscInfo.dot")
 
Function ChangeTemplate($Document,$Template)
	Dim $oWord
	$oWord = CreateObject('Word.Application')
	$RC = $oWord.Documents.Open($Document)
	$oWord.ActiveDocument.AttachedTemplate = $Template
	$oWord.ActiveDocument.Save
	$oWord.Application.Quit(0)
EndFunction
-Erik

[ 13. June 2003, 21:15: Message edited by: kholm ]