如何用 vb 代码，替换word模版。

Question

该属性返回或设置一个与活动文档相关联的模板。Template 类型，可读写。
Property AttachedTemplate As VARIANT
说明
如果要设置 AttachedTemplate 属性，则必须设置一个 Variant 类型的值，该值表示模板名称或返回 Template 对象的表达式。
样例
' 本示例显示与活动文档相关联的模板的名称。
Sub AttachedTemplateExample()
    MsgBox ActiveDocument.AttachedTemplate
End Sub

Answer 1

模板文件名后缀一般不是dot吗

Answer 2

换为 dot文件也一样的，谁知道怎么做，将已有模版文件替换vb程序打开的文件。

Answer 3

' On Error Resume Next
    Dim wdApp As New Word.Application, wdDoc As Word.Document
   'Set WordDocX = wdApp.Documents.Add("c:\moban.dot")
    Set wdDoc = wdApp.Documents.Open("C:\22.doc")
   
   ' Property AttachedTemplate As VARIANT
  ' wdApp.ActiveDocument.AttachedTemplate ("C:\11.dot")
   ' wdApp.AttachedTemplate ("C:\11.dot")
  '  wdDoc.CopyStylesFromTemplate ("c:\moban.dot")
    'MsgBox wdApp.ActiveDocument.AttachedTemplate
    'wdApp.ActiveDocument.AttachedTemplate.Save ("C:\11.dot")
    
    'MsgBox wdApp.Templates(0).Saved
    
    
    'ActiveDocument.CopyStylesFromTemplate _
   ' Template:=ActiveDocument.AttachedTemplate.FullName
'本示例将模板 Sales96.dot 的样式复制到 Sales.doc。
   'Documents("Sales.doc").CopyStylesFromTemplate _
 'Template:="C:\MSOffice\Templates\Sales96.dot"
 ActiveDocument.CopyStylesFromTemplate _
 Template:=ActiveDocument.AttachedTemplate.FullName
 
 Documents("C:\22.doc").CopyStylesFromTemplate _
 Template:="c:\moban.dot"
    
    
    
    
    wdDoc.Close savechanges:=True
    wdApp.Quit
我这么写还是不行