如何运行word的宏？

Question

利用delphi自带servers标签页的控件wordapplication1和wordocument1来运行word的宏？有没有其他办法？请给出代码！如何将数据库中的blobs字段中的内容输入到word中进行排版打印！

Answer 1

VB利用Excel的Application.Run方法。具体做法如下： 
    假设你的Book2.xls中有一个HelloWorld的宏： 
    Sub HelloWorld(sName As String) 
     MsgBox "Hi, " + sName +"!" 
    End Sub 
    在VB中采用如下代码就可以调用Excel的宏。 
     Dim appExcel As Object 
     Set appExcel = CreateObject("Excel.Application") 
     appExcel.Visible = True 
     appExcel.Workbooks.Open "G:\My Documents\book2.xls" 
     appExcel.Run "HelloWorld", "zhixiong lin" 在delphi里面一样可以用，只要创建了Office的对象，方法及参数都一样。
Word里也一样。