守柔——如何从后台找开WORD 并加载指定的模版

dzdoc

守柔——如何从后台找开WORD 并加载指定的模版

守柔

我就奇怪了,你已经打开的WORD模板了,直接运行你的代码就可以了,我晕![em06][em06][em06]

dzdoc

好的，好的。我再研究，我从帮助信息中获知如何打DOT方法的办法了。现在解决的是如何只引用DOT中的代码，而不打开它。。。不要让别人直接看到打开的就是模版，而是一个普通的文档，但他呆以得处里面的功能 ，我自己也有一点晕了。。。

再研究。。。。谢了。

[此贴子已经被作者于2005-6-8 11:23:37编辑过]

dzdoc

问题已解决：用如下代码实现

Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True WordApp.Documents.Open App.Path & "\a.doc" Word.Application.ActiveDocument.AttachedTemplate = App.Path & "\hxjp_user.dot" Set WordApp = Nothing End Sub

守柔

以下是引用dzdoc在2005-6-8 11:45:00的发言：

问题已解决：用如下代码实现

Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True WordApp.Documents.Open App.Path & "\a.doc" Word.Application.ActiveDocument.AttachedTemplate = App.Path & "\hxjp_user.dot" Set WordApp = Nothing End Sub

你仍然是多此一举。你的“模板”中就是一个”化学金排”啊！你直接将代码向WORDAPP的DOCUMENT中插入你的"化学金排",即将化学金排的代码写在VB里就行了.

对吗?

dzdoc

噢，，谢谢。。。

dzdoc

又发现用这一段代码会更好。

Private Sub Form_Load() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True WordApp.AddIns.Add FileName:=App.Path & "\hxjp_user.dot", Install:=True WordApp.Documents.Add , False, wdNewBlankDocument, True Set WordApp = Nothing End SuB