How to use JavaCOMBridge (JaCoB) with Microsoft Word

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Stefan Schnell

Trainee

Posts: 102

Date of registration: Mar 13th 2009

Location: Oberirsen - Germany

Occupation: Senior Software Engineer

Hobbies: Programming aund Photography

Thursday, April 16th 2009, 10:26pm

Hello community,
it is very easy to use COM with Java COM Bridge (JaCoB). You find JaCoB here. The first code is a class file, you find a detailed explanation here.

	Jabaco Source
1	See the class file below

The second code is very easy to understand:

	Jabaco Source
1 2 3 4 5 6	Dim oWord As New Word() oWord.visibleApp() oWord.openDoc "c:\\dummy\\test.doc" oWord.appendText "Blablabla" oWord.Terminate() Set oWord = Nothing

Cheers
Stefan

Visit my personal or commercial site
If you have questions or suggestions, write me an eMail or meet me here

This post has been edited 7 times, last edit by "StefanSchnell" (Jun 21st 2009, 5:26pm)

Go to the top of the page

Manuel

Administrator

Posts: 256

Date of registration: Jul 16th 2008

Location: Erlangen, Germany

Occupation: Software Developer

Hobbies: Jabaco, game theory, text-mining

Thursday, April 16th 2009, 11:02pm

thank you for the nice sample.

Go to the top of the page

StefanSchnell

Trainee

Posts: 102

Date of registration: Mar 13th 2009

Location: Oberirsen - Germany

Occupation: Senior Software Engineer

Hobbies: Programming aund Photography

Sunday, June 21st 2009, 5:01pm

How to use Microsoft© Word® SpellChecking with Jabaco

Hello community,
here is a small extension of the class to use Word® spell and grammar checking.

Jabaco Source

'-Begin Class Word-------------------------------------------------------- 

  '-Constants------------------------------------------------------------- 
    Private Const wdStory = 6 
    Private Const wdMove = 0 

  '-Variables------------------------------------------------------------- 
    Private oWord As com#jacob#activeX#ActiveXComponent 
    Private oDocs, oDoc As com#jacob#com#Dispatch 

  '-Initialize------------------------------------------------------------ 
    Private Sub Class_Initialize() 
      Set oWord = New ActiveXComponent("Word.Application") 
    End Sub 

  '-Terminate------------------------------------------------------------- 
    Public Sub Terminate() 
      If oDoc <> Nothing Then
        closeDoc(False)
      End If
      oWord.invoke("Quit") 
      Set oDoc = Nothing 
      Set oDocs = Nothing 
      Set oWord = Nothing 
    End Sub 

  '-visibleApp------------------------------------------------------------ 
  '- 
  '- Show Word application 
  '- 
  '----------------------------------------------------------------------- 
    Public Sub visibleApp() 
      oWord.setProperty("Visible", True) 
    End Sub 

  '-openDoc--------------------------------------------------------------- 
  '- 
  '- Open a document 
  '- 
  '----------------------------------------------------------------------- 
    Public Sub openDoc(FileName As String) 
      Set oDocs = oWord.getProperty("Documents").toDispatch() 
      Set oDoc = com#jacob#com#Dispatch.call(oDocs, "Open", _ 
        FileName).toDispatch() 
    End Sub 

  '-newDoc----------------------------------------------------------------
  '-
  '- Create a new document
  '-
  '-----------------------------------------------------------------------
    Public Sub newDoc()
      Set oDocs = oWord.getProperty("Documents").toDispatch() 
      Set oDoc = com#jacob#com#Dispatch.call(oDocs, "Add").toDispatch()
    End Sub    

  '-closeDoc--------------------------------------------------------------
  '-
  '- Close the document
  '-
  '-----------------------------------------------------------------------
    Public Sub closeDoc(SaveChanges As Boolean)
      If oDoc <> Nothing Then
        com#jacob#com#Dispatch.call(oDoc, "Close", SaveChanges)
      End If  
    End Sub    

  '-appendText------------------------------------------------------------
  '- 
  '- Add a text at the end of the open document 
  '- 
  '----------------------------------------------------------------------- 
    Public Sub appendText(Text As String) 
      Dim oSel As com#jacob#com#Dispatch
      Set oSel = oWord.getProperty("Selection").toDispatch() 
      com#jacob#com#Dispatch.call(oSel, "EndKey", wdStory, wdMove) 
      com#jacob#com#Dispatch.call(oSel, "TypeParagraph") 
      com#jacob#com#Dispatch.call(oSel, "TypeText", Text) 
      Set oSel = Nothing
    End Sub 
    
  '-appendTextFromClipboard-----------------------------------------------
  '-
  '- Add a text from the clipboard at the end of the open document
  '-
  '-----------------------------------------------------------------------
    Public Sub appendTextFromClipboard
      Dim oSel As com#jacob#com#Dispatch
      Set oSel = oWord.getProperty("Selection").toDispatch() 
      com#jacob#com#Dispatch.call(oSel, "EndKey", wdStory, wdMove) 
      com#jacob#com#Dispatch.call(oSel, "TypeParagraph") 
      com#jacob#com#Dispatch.call(oSel, "Paste")
      Set oSel = Nothing
    End Sub    
    
  '-setTextToClipboard----------------------------------------------------
  '-
  '- Set the whole text of the document to the clipboard
  '-
  '-----------------------------------------------------------------------
    Public Sub setTextToClipboard
      Dim oSel As com#jacob#com#Dispatch
      Set oSel = oWord.getProperty("Selection").toDispatch() 
      com#jacob#com#Dispatch.call(oSel, "WholeStory") 
      com#jacob#com#Dispatch.call(oSel, "Copy")
      Set oSel = Nothing
    End Sub      
  
  '-checkSpelling---------------------------------------------------------
  '-
  '- Execute the spell checking
  '-
  '-----------------------------------------------------------------------
    Public Sub checkSpelling()
      com#jacob#com#Dispatch.call(oDoc, "CheckSpelling")
    End Sub
    
  '-checkGrammar----------------------------------------------------------  
  '-
  '- Execute the grammar check
  '-
  '-----------------------------------------------------------------------
    Public Sub checkGrammar()
      com#jacob#com#Dispatch.call(oDoc, "CheckGrammar")
    End Sub
'-End---------------------------------------------------------------------

And here is an example:

Jabaco Source

Public Sub CheckSpelling_Click()
  Dim oWord As New Word()
  '-Create new document
    oWord.newDoc
  '-Set text from TextBox via ClipBoard in the Word document
    Clipboard.SetText(Form1.RichTextBox1.Text)
    oWord.appendTextFromClipboard
  '-Start check
    oWord.checkSpelling
    'oWord.checkGrammar
  '-Copy corrected text to clipboard
    oWord.setTextToClipboard
  '-Terminate Word
    oWord.Terminate
End Sub

Public Sub GetCorrectedText_Click()
  Dim Text As String
  '-Copy corrected text from ClipBoard to TextBox
    Text = Clipboard.GetText()
    Form1.RichTextBox1.replaceText Text, 0, Len(Form1.RichTextBox1.Text)
  Form1.Refresh
End Sub