C coolzwl Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-11 #1 delphi调用Word后，怎么在Word的DocumentOpen 事件中执行VBA代码？？？我不知道怎么着才能让word执行已有的VBA代码，Delphi代码中怎么嵌入VBA代码？？？？请高手指点！！！
delphi调用Word后，怎么在Word的DocumentOpen 事件中执行VBA代码？？？我不知道怎么着才能让word执行已有的VBA代码，Delphi代码中怎么嵌入VBA代码？？？？请高手指点！！！
A anneduan Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-11 #3 var word:Olevariant; begin word:=CreateOleObject('Word.Application'); word.documents.open(docname); word.run(macroname);//macroname即为已存在的宏的名字 ... end; 希望可以帮到你！
var word:Olevariant; begin word:=CreateOleObject('Word.Application'); word.documents.open(docname); word.run(macroname);//macroname即为已存在的宏的名字 ... end; 希望可以帮到你！
C coolzwl Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-13 #4 我的宏该放在什么地方呀？ 我的VBA代码是从其它资料上获取的，我想在打开Word后就执行那段代码，该怎么办呀？？？
霖 霖霖 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-19 #6 看下面的例子，调用Word后执行了一系列的VBA代码。 WordApp := CreateOleObject('Word.Application'); WordApp.Documents.Open(FileName:=OpenDialog1.FileName, ReadOnly:=True); WordApp.ActiveDocument.Content.Select; WordApp.ActiveDocument.Range.CopyAsPicture; WordApp.Quit; 这样就搞定了！ 用不着什么模板！
看下面的例子，调用Word后执行了一系列的VBA代码。 WordApp := CreateOleObject('Word.Application'); WordApp.Documents.Open(FileName:=OpenDialog1.FileName, ReadOnly:=True); WordApp.ActiveDocument.Content.Select; WordApp.ActiveDocument.Range.CopyAsPicture; WordApp.Quit; 这样就搞定了！ 用不着什么模板！
