code:

---

 
"c:\Program Files\Microsoft Office\Office10\winword.exe" /t"E:\miscinfo.dot" 

---

code:

---

"e:\invoices\miscinfo\mydoc.doc" /t"E:\MiscInfo.dot"

---

The first opens word with the template, the second opens the doc, but not the template...

Help.

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

---

code:

---

break on
ChangeTemplate("C:\Temp\test1.doc","C:\Temp\miscinfo.dot")
Function ChangeTemplate($Document,$Template)
	Dim $oWord
	$oWord = CreateObject('Word.Application')
	$RC = $oWord.Documents.Open($Template)
	$RC = $oWord.Documents.Open($Document)
	$oWord.Selection.WholeStory
	$oWord.Selection.Copy
	$oWord.ActiveDocument = $Template
	$oWord.Selection.PasteAndFormat("wdPasteDefault")
        $oWord.ChangeFileOpenDirectory("C:\temp\")
        $oWord.ActiveDocument.SaveAs("Doc4.doc", 0)
	$oWord.Application.Quit(0)
EndFunction

---