Sign in to follow this  
Followers 0
exodius

Getting Text from embedded Word Object

3 posts in this topic

Anyone have any ideas on how to extract the text typed into the embedded word object in the example below without having to simply save the word document? In my actual script I have it automatically open a blank Word document and want to utilize the spelling/grammar checker but can't find a way to get it to give me the text.

#include <IE.au3>
#include <GUIConstants.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded()

GUICreate("Embedded Word control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Open = GUICtrlCreateButton("Open File", 10, 420, 100, 30)

$GUI_Button_OK = GUICtrlCreateButton("OK", 200, 420, 100, 30)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_Button_OK
            MsgBox ( 0, "", "")
        Case $GUI_Button_Open
            $sFile = FileOpenDialog("Open Word File", @MyDocumentsDir, "Word Doc (*.Doc)")
            If $sFile <> "" Then
                _IENavigate ($oIE, $sFile, 0)
                While $oIE.ReadyState <> 4
                    Sleep(50)
                WEnd
                $oDoc = $oIE.Document
                $oWord = $oDoc.Application
                $oDoc.CommandBars ("Reviewing").visible = False
                $oDoc.CommandBars ("Standard").Visible = False
            EndIf
    EndSwitch
    Sleep(50)
WEnd

_IENavigate ($oIE, "about:blank")
$oDoc = 0
$oWord = 0

GUIDelete()

Exit

Share this post


Link to post
Share on other sites



I figured it out after looking at your Word UDF thread in the Examples forum...

This'll do the trick. :P Thanks big_daddy!

#include <IE.au3>
#include <GUIConstants.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded()

GUICreate("Embedded Word control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Open = GUICtrlCreateButton("Open File", 10, 420, 100, 30)

$GUI_Button_OK = GUICtrlCreateButton("OK", 200, 420, 100, 30)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_Button_OK
            MsgBox ( 0, "", $oDoc.Range.Text)
        Case $GUI_Button_Open
            $sFile = FileOpenDialog("Open Word File", @MyDocumentsDir, "Word Doc (*.Doc)")
            If $sFile <> "" Then
                _IENavigate ($oIE, $sFile, 0)
                While $oIE.ReadyState <> 4
                    Sleep(50)
                WEnd
                $oDoc = $oIE.Document
                $oWord = $oDoc.Application
                ; Put document into 'Web View' mode
                ;$oWord.Activewindow.View = 4
                ; Manage display of toolbars
                $oDoc.CommandBars ("Reviewing").visible = False
                $oDoc.CommandBars ("Standard").Visible = False
            EndIf
    EndSwitch
    Sleep(50)
WEnd

_IENavigate ($oIE, "about:blank")
$oDoc = 0
$oWord = 0

GUIDelete()

Exit

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0