java_怎样用java调用word.pdfVIP

? java word.exe ? 1 JACOB 6 JACOB 12 java com _jacob 16 jacob word PDF 19 jsp word,excel 32 Java Microsoft Word jacob () 40 ? java word.exe ? , jacob word . , jacob java com bridge, vb MyWor dMacro , java , jacob : 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 java : package com.bjinfotech.practice.jacob; import .*; 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,Ob ject parameter[]){ // ActiveX ActiveXComponent wrdCom=new ActiveXComponent(Word.Ap plication); try{ // wrdCom.Documents Dispatch Object wrdDocs=wrdCom.getProperty(Documents ).toDispatch (); // wrdCom.Documents.Open wor d , 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.Met hod,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/jacobPrac tice/src/com/bjinfotech/practice/jacob/MacroTest.doc, MyWord