# Re: 怎样把WORD中写好的巨集加到VB中ㄚ!

Posted by 纪文和 on May 31, 1999 at 19:32:46:

In Reply to: 怎样把WORD中写好的巨集加到VB中ㄚ! posted by POTRICK on May 30, 1999 at 18:48:44:

小Sam 已经以 Word VBA 的角度作了详解了.

不过, 以我的经验及 POTRICK 问问题的方式, 我认为他是想直接在 VB 程式中全盘控制 Word 的运作, 甚至不希望 User 去碰 Word,

以下的程式可以用 VB 的程式,打开 Word(可隐藏) , 列印后, 关闭 Word.
=======================
Dim appobj As Object
Set appobj = CreateObject("Word.Application") '启动 Word
'appobj.Visible = True '要让 Word 显现/背景作业
appobj.ChangeFileOpenDirectory "C:\" '设定现行目录
appobj.Documents.Open filename:="test.doc" '开启 c:\test.doc
:
:其他作业(更动档案)
:
appobj.printout '列印
appobj.ActiveDocument.Save '存档(原档名)
appobj.quit '结束 Word
=================
试试看吧

Follow Ups: