ÈçºÎʹÓÃjacobµ÷ÓÃwordµÄºê

Sub MyWordMacro(strPassedParam As String)
         MsgBox strPassedParam
      End Sub

Sub AutomateWord_OpenDoc()
      Dim wrdApp As Object
      Dim wrdDoc As Object
      Dim strFileName As String
      Set wrdApp = CreateObject("Word.Application")

      On Error GoTo DocError

      ' Replace the following example string value with the path and
      ' file name of the template containing your macro.
      strFileName = "<Path and Filename of template>"

      ' Open the document and set a variable equal to a new blank
      ' document and its underlying template.
      Set wrdDoc = wrdApp.Documents.Add(strFileName)

      ' Run the macro. (Replace "MyWordMacro" with the name of your macro.)
      wrdDoc.MyWordMacro ("This is a test.")

   DocError:
      If Err.Number <> 0 Then Msgbox Err.Description

      ' Quit this instance of Word.
      wrdApp.Quit

      ' Clear variable memory.
      Set wrdApp = Nothing
      Set wrdDoc = Nothing

   End Sub

Sub AutomateWord_OpenDoc()
      Dim wrdApp As Object
      Dim wrdDoc As Object
      Dim strFileName As String

      Set wrdApp = CreateObject("Word.Application")

      On Error GoTo DocError

      '°üº¬marcoµÄwordÎļþ
      strFileName = "c:\MacroTest.doc"

      '´ò¿ªÎļþ
      Set wrdDoc = wrdApp.Documents.Open(strFileName)

      'ÔËÐкê
      wrdDoc.MyWordMacro ("This is a test.")

DocError:
      If Err.Number <> 0 Then MsgBox Err.Description

      'Í˳öword
      wrdApp.Quit

      'Çå³ýÄÚ´æ
      Set wrdApp = Nothing
      Set wrdDoc = Nothing

End Sub

Private Sub Command1_Click()
    AutomateWord_OpenDoc
End Sub

package com.bjinfotech.practice.jacob;

import com.jacob.com.*;
import com.jacob.activeX.*;
/**
 * µ÷ÓÃwordÎļþÖеĺê
 * @author ´ÏÃ÷µÄÖí
 *
 */
public class Dispatch_MSWordMacro {
        /**
         * ´ò¿ªword£¬µ÷ÓÃwordÖеĺê
         * @param filePath wordÎļþ·¾¶
         * @param macroName ±»µ÷ÓõĺêÃû×Ö
         * @param parameter µ÷ÓúêµÄ²ÎÊýÊý×é
         */
        public void callWordMacro(String filePath,String macroName,Object parameter[]){
                //½¨Á¢ActiveX²¿¼þ
                ActiveXComponent wrdCom=new ActiveXComponent("Word.Application");
                
                try{
                        //·µ»ØwrdCom.DocumentsµÄDispatch
                        Object wrdDocs=wrdCom.getProperty("Documents").toDispatch();
                        //µ÷ÓÃwrdCom.Documents.Open·½·¨´ò¿ªÖ¸¶¨µÄwordĵµ£¬·µ»ØwordDoc
                        Object wrdDoc=Dispatch.invoke(wrdDocs,"Open",Dispatch.Method,new Object[]{filePath},new int[1]).toDispatch();
                        //ʹÓ÷½·¨´«ÈëµÄ²ÎÊýparameterµ÷ÓÃwordÎĵµÖеÄMyWordMacroºê
//                        Dispatch.call(wrdDoc,macroName,parameter);
                        Dispatch.invoke(wrdDoc,macroName,Dispatch.Method,parameter,new int[1]);
                }
                catch(Exception ex){
                        ex.printStackTrace();
                }
                finally{
                        //¹Ø±ÕwordÎļþ
                        wrdCom.invoke("Quit",new Variant[]{});
                }
        }
        
        public static void main(String[] argv){
                Dispatch_MSWordMacro d=new Dispatch_MSWordMacro();
                d.callWordMacro("E:/eclipse3.1RC3/workspace/jacobPractice/src/com/bjinfotech/practice/jacob/MacroTest.doc","MyWordMacro",new String[]{"ÕâÊDzâÊÔÐÅÏ¢"});
        }
}