Private Function IsTemplate(ByVal objDoc As Document) As Boolean
Select Case objDoc.SaveFormat
Case wdFormatTemplate, wdFormatDocument97,
wdFormatXMLTemplate, wdFormatXMLTemplateMacroEnabled,
wdFormatFlatXMLTemplate, wdFormatFlatXMLTemplateMacroEnabled
IsTemplate = True
Case Else
IsTemplate = False
End Select
End Function
The "macmillan.dotm" template does not get attached if the source MSWord document is *.doc.
Private Function IsTemplate(ByVal objDoc As Document) As Boolean Select Case objDoc.SaveFormat Case wdFormatTemplate, wdFormatDocument97, wdFormatXMLTemplate, wdFormatXMLTemplateMacroEnabled, wdFormatFlatXMLTemplate, wdFormatFlatXMLTemplateMacroEnabled IsTemplate = True Case Else IsTemplate = False End Select End Function
The "macmillan.dotm" template does not get attached if the source MSWord document is *.doc.