I have an Excel spreadsheet which will be used to create a Word document from
a template. I can open the template and save it as a document. However I
also want to be able to run an auto open macro contained in the template when
it opens, but it is opening with macros disabled. Even if I try to open a
template containing macros manually within Word, it does not offer the option
of enabling macros. Is this a security feature?

I would be grateful if someone could confirm whether it is possible to
enable macros in this situation, and if so how.

I am using this code (gleaned from earlier posts) :

Sub OpenTemplate()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim wordRng As Word.Range
Dim WordPara As Word.Paragraph

On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number < 0 Then 'Word isn't already running
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo 0
WordApp.Visible = True
With WordApp

Documents.Add Template:= _
"C:\Documents and Settings\.... \ myfile.dot", _
NewTemplate:=False, DocumentType:=0 ',

Set WordDoc = WordApp.ActiveDocument
.ActiveDocument.SaveAs "C:\Documents and Settings\...\testsave01.doc"""

End With

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub

This sounds like a Word issue, not Excel. Although you may get an answer
here, you stand more chance in a Word related NG.

--
Ian
--
"L Smith" wrote in message
...
I have an Excel spreadsheet which will be used to create a Word document
from
a template. I can open the template and save it as a document. However I
also want to be able to run an auto open macro contained in the template
when
it opens, but it is opening with macros disabled. Even if I try to open a
template containing macros manually within Word, it does not offer the
option
of enabling macros. Is this a security feature?

I would be grateful if someone could confirm whether it is possible to
enable macros in this situation, and if so how.

I am using this code (gleaned from earlier posts) :

Sub OpenTemplate()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim wordRng As Word.Range
Dim WordPara As Word.Paragraph

On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number < 0 Then 'Word isn't already running
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo 0
WordApp.Visible = True
With WordApp

Documents.Add Template:= _
"C:\Documents and Settings\.... \ myfile.dot", _
NewTemplate:=False, DocumentType:=0 ',

Set WordDoc = WordApp.ActiveDocument
.ActiveDocument.SaveAs "C:\Documents and
Settings\...\testsave01.doc"""

End With

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub