Word template automation

[Erroneous]

Hi everyone!

I got some problem and i need some help. I don't ask you guys to write codes for me what i need is some helpful input to help me get on the right track.

So, I created a word file and put some graphics header and footer. Now, I want to use that word template for some 400 word documents.

So basically open the template, open the other document, copy the content and paste it to the template, lastly save as the template to the original filename of the document.

It's easily said than done i know. can you guys give me some input on where to start?

Many thanks!

[RobDog888]

First, most things can be figured out of how to program by recording macros.
http://www.vbforums.com/showthread.php?t=402032

Next, you can open the documents using the template instead of having to copy/paste.

You may want to check out my Office FAQ for tips and code on automating Word from VB6.

[Erroneous]

Thanks for the reply. But how can i open the documents with my customized header? There are about 400 word files with no header and footer yet. I want to put those header and footer on those 400 word docs. Is there any easier way to automate this?

[RobDog888]

You can open each document one at a time and attach your template to it, saveas and close. Then repeat for the next document.

ActiveDocument.AttachedTemplate = "C:\MyTemplate.dot"

[Erroneous]

wow great! let me try that. i got so many things to learn.

[Erroneous]

Hey Rob, I tried but its not working.

    oWord.Documents.Open "C:\Somefile.doc"
    oWord.ActiveDocument.AttachedTemplate = "C:\Template.dot"
    oWord.ActiveDocument.Save
    oWord.ActiveDocument.Close

Is there something wrong with the code?

[westconn1]

depending on the content of your headers /footers, it might be easier to copy the document content into a new document based on the new template

you can use the code below in a loop through your documents

Dim olddoc As object, newdoc As object
Set olddoc = oword.Documents.Open("c:\somefile.doc")
Set newdoc = oword.Documents.Add("template.dot")
olddoc.Range.Copy
newdoc.Range.PasteSpecial
fname = olddoc.FullName
olddoc.Close False
newdoc.SaveAs fname  ' overwrite old file
newdoc.Close
' loop to next file

[Erroneous]

Works like a charm! Cheers mate!