怎样操作word模板??

Question

怎样在vb中操作VB模板 word模板以做好  怎样在模板中指定的地方加入内容
并将其另存为word文件 
希望能提供源代码谢谢

Answer 1

.AttachedTemplate = "Normal"

Answer 2

我也没有看到.attachedtemplate属性啊。

Answer 3

Dim myobj As Word.ApplicationPrivate Sub Command1_Click()End SubPrivate Sub create_Click()
Set myobj = New Word.Application
myobj.Visible = True
myobj.Documents.AddEnd SubPrivate Sub exit_Click()
Dim demo As Integer
If myobj.ActiveDocument.Saved = False Then
demo = MsgBox("Do you want to save this document?", vbYesNo, "Demo")
If demo = vbYes Then
    myobj.ActiveDocument.save
End If
myobj.Quit
Unload Form1
End SubPrivate Sub save_Click()
myobj.ActiveDocument.save
End Sub

Answer 4

如果你是以某个模板文件为模板创建一个文件的话
 dim a as new word.application
 dim b as word.document 
 b=a.documents.add ("TemplateName.dot") '以templatename.dot为模板添加一个空白文档，如果这个参数为空的话，表示以“normal.dot”为模板如果你要创建一个文档作为模板
  b=a.document.add(,NewTemplate=true)  '创建文档作为模板，这个参数是个boolean型。
然后和其它的文档操作一样了。