open template as document

[Guest]

I want to use
Set objWord = GetObject("C:\MyMerge.doc", "Word.Document")
but want to create a word document based on a template. If my file is
"C\mymerge.dot" how do i get it to open as a document .doc based on the
template

thanks

 

[Joe Black]

I want to use
Set objWord = GetObject("C:\MyMerge.doc", "Word.Document")
but want to create a word document based on a template. If my file is
"C\mymerge.dot" how do i get it to open as a document .doc based on the
template

thanks

Hi Judith

Dim objWord As Object
Dim objMergeDoc As Object

On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set objWord = CreateObject("Word.Application")
End If

Err.Clear

objWord.Visible = True
objWord.Activate

Set objMergeDoc = objWord.Documents.Add("C:\MyMerge.dot")

objMergeDoc.Bookmarks("TodayDate").Select
objWord.Selection.Text = Format(Date, "d mmmm yyyy")


Regards - Joe