当前页面: 开发资料首页 → Java 专题 → 如何使用jacob调用word的宏
摘要: 如何使用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 = ""
' 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牡担祷豾ordDoc
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[]{"这是测试信息"});
}
}