+ -
当前位置:首页 → 问答吧 → 为什么我的AUTOEXEC SUB 不能启动 在七楼是原码。

为什么我的AUTOEXEC SUB 不能启动 在七楼是原码。

时间:2005-06-11

来源:互联网

我是从VB所编的软件,后台启动Word并加载了特定模板取得成功,可是设在特定模板中Thisdocument中的AUTOEXEC SUB()无法启动。为什么这样呢?将他放在WORD\startup中也不能启动。。可是却可以手工启动为会呢????

极度郁闷中************************************

[此贴子已经被作者于2005-6-14 8:25:22编辑过]

作者: dzdoc   发布时间: 2005-06-11

放在位置好像不对啊!应该是startup下,在windows下,它是隐含的!

你好像还可以用启动时加启动 "/m yournormal"

或试试下面的autoexec看看!

sub autoexec()

docmenut.add temple:"c:\progrom...\temple.dot",'此处的位置是你的机子位置啊!

newtemple:=false

end sub

作者: konggs   发布时间: 2005-06-11

你的位置不对啊!

作者: konggs   发布时间: 2005-06-11

引用:
以下是引用konggs在2005-6-11 10:27:00的发言:

放在位置好像不对啊!应该是startup下,在windows下,它是隐含的!

你好像还可以用启动时加启动 "/m yournormal"

或试试下面的autoexec看看!

sub autoexec()

docmenut.add temple:"c:\progrom...\temple.dot",'此处的位置是你的机子位置啊!

newtemple:=false

end sub

不是要加载模板,我是通通在VB中后台启动后,加了特定模板,而且成功了。现的问题是这个模板中的AUTOEXEC SUB()无法启动,应为我想通过他加载一个DLL。

作者: dzdoc   发布时间: 2005-06-11

大哥在哪?出来顶一下,小弟无能为力了!

对不起!理解错误!抱歉!

作者: konggs   发布时间: 2005-06-11

其实你自己可以搜索一下嘛。

再者说了,你如果真心想解决问题的,至少得把代码稍微附上一点吧?难道让我们“隔山打老牛”不成?

请参:

Sub AutoExec()……

End Sub

我不知道是否是你的宏名搞错了?

作者: 守柔   发布时间: 2005-06-11

对不起,下面是我的代码:

Sub AutoExec()Dim PathDll As StringPathDll = ThisDocument.Path & "\epdll.dll"Me.VBProject.References.AddFromFile PathDllMsgBox "丁中化学组 欢迎你"End Sub

下面是在VB中后台启动WORD的代码

Private Sub Form_Load()

Dim WordApp As ObjectSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueWordApp.AddIns.Add FileName:=App.Path & "\hxjp_user.dot", Install:=TrueWordApp.Documents.Add , False, wdNewBlankDocument, TrueWord.Application.Documents(1).ActivateSet WordApp = NothingEnd Sub

还有就是我只有一个AUTOEXEC放在了HXJP_USER.dot 的THISDOCUMETN中。

[此贴子已经被作者于2005-6-11 20:13:42编辑过]

作者: dzdoc   发布时间: 2005-06-11

我也遇到这个问题,6年了没有人解决?

作者: 偏爱代码   发布时间: 2011-03-11