守柔——这样的功能如何实现.问题已解决。

dzdoc

还是上一次的一个有关软件安装文件制作的问题

http://club.excelhome.net/viewthread.php?tid=102006

我在研究《化学金排》后发现一个问题，他没有将他的模版装入到我的“模版”文件夹中，也没有放在“\Microsoft\Word\STARTUP”文件夹，却能正常使用。每一次启动他的软件时都要先运行一个EXE文件才可以。这样的功能如何实验现呢？而从正常的方式启WORD,就象没有装过这个软件一样一点都没有变化.

谢谢你这几天的帮忙,使我的中学化学排版小软件越来越象个样子,同时你能不能推存一个对VBA编程讲解比较适合我目前水平书给我.

[此贴子已经被作者于2005-6-8 13:07:30编辑过]

ykhy

将VBA代码放到自己的模板中，如“化学排版.DOT”，并在OPEN或NEW中加入加载此模板的代码，还可以在CLOSE中加入复原代码。

《化学金排》中的EXE文件我想只不过是用VB等语言编写打开/新建模板的一条或几条代码，编译为EXE而已，此文件应该很小。

不知是否在理，供参考。

守柔

其实你的这个方法，我不是特别支持，本来不是一个很复杂的工程，有必要搞得那么复杂吗？当然，从保护源代码的情况说，是可行的，二数所说的写在别人NORMAL.DOT中(我有一个实例,在论坛上),是不科学的.

那么,除了使用特定的模板,置于STARTUP文件夹下以便让WORD自动加载外,当然还有其它很多方法,据我所知就有:

一:使用外接程序管理器,就是通常所说的COM加载项;

二是VB,打包生成以EXE的可执行程序,就是你现在所说的情况,无非在VB的程序中,加入了CreateObject("Word.Application")而已, 即以后期绑定OLE的方式,后台打开WROD程序,然后作图,也就是只有运行了此EXE文件,才能进行指定的功能,而正常的WORD程序,则不受影响.此法可以有效避免宏安全性设置.

建议,如果楼主只是尝试封装作品,我无可厚非,如果楼主以大于有效程序功能的研发时间,去研究有效功能之外的内容,是否有必要?

做一个WORD模板,保护一下代码,使用者双击打开该模板,即可正常使用,我觉得就可以了.

[em08]

dzdoc

谢谢大家，就如守柔所讲，我是想是尝试封装作品的过程。我就要你所用的二方法来试一试。

二是VB,打包生成以EXE的可执行程序,就是你现在所说的情况,无非在VB的程序中,加入了CreateObject("Word.Application")而已, 即以后期绑定OLE的方式,后台打开WROD程序,然后作图,也就是只有运行了此EXE文件,才能进行指定的功能,而正常的WORD程序,则不受影响.此法可以有效避免宏安全性设置.

[此贴子已经被作者于2005-6-8 8:46:55编辑过]

dzdoc

很想要方法二做，打开VB后傻了，无从下手，守柔能不能给个源码啊？问题已解决。

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

[此贴子已经被作者于2005-6-8 13:04:06编辑过]

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

[此贴子已经被作者于2005-6-9 9:24:39编辑过]