FiveTech Support Forums

// Using Microsoft Office Word ActiveX

/*
#include "Fivewin.ch"

FUNCTION MAIN()

   LOCAL cDoc := CURDRIVE() + ":\" + CURDIR() + "\test.doc"
   LOCAL oWord

   If FILE( cDoc )

      oWord = TOleAuto():New( "Word.Application" )
      oWord:Documents:Open( cDoc )
      oWord:Visible = .T.
      oWord:WindowState = 1 // Maximize

      SETFOREGROUNDWINDOW( FINDWINDOW( "OpusApp" ) )

   ENDIF

RETURN NIL
*/

/*
#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oWnd, oActiveX, oWord

   oWord := TOleAuto():New( "Word.Application" )

   IF File( "C:\TMP\ADHEMAR.TXT" )

      oWord:Documents:Open( "C:\TMP\ADHEMAR.TXT" )

   ELSE

      ? "File not found"

      RETURN NIL

   ENDIF

   oWord:Visible := .F.
   oWord:WindowState := 0

   oWord:PrintOut()

   oWord:Quit()
   oWord:End()

RETURN NIL
*/

#include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar, cPdf

   cPdf := "C:\TMP\DATA_DOC.doc"

   DEFINE WINDOW oWnd TITLE "Test Word"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION( PrintPDF( cPdf ) )

   SET MESSAGE OF oWnd TO "Test Word" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

   RETURN NIL

FUNCTION PrintPDF( cPdf )

   LOCAL oWord, oDoc, lVisible

   IF Empty( cPdf ) .OR. .NOT. File( cPdf )

      MsgAlert( "Invalid File Name" )

      RETURN .F.

   ELSEIF ( oWord := WinWordObj() ) == nil

      MsgAlert( FWString( "Word not installed" ) )

      RETURN .F.

   ENDIF

   oWord:DisplayAlerts := .F.

   lVisible := oWord:Visible

   // oWord:Visible := .f.

   oDoc := oWord:Documents:Open( truename( cPdf ), .F., .T. )

   // oDoc:PrintOut()  // Direct in Printer.
   // oDoc:Close()

   // oWord:Visible := lVisible
   oWord:Visible = .T.
   oWord:WindowState = 1 // Maximize

   SETFOREGROUNDWINDOW( FINDWINDOW( "OpusApp" ) )

RETURN( .T. )

// FIN

// C:\FWH\SAMPLES\WORD4.PRG

#include "Fivewin.ch"

FUNCTION Main()

   LOCAL cFile := CurDrive() + ":\" + CurDir() + "\test.doc"
   LOCAL oWord, oDocument, oText, cText, oRang

   TRY

      oWord := CreateObject( "Word.Application" )

   CATCH

      MsgAlert( FWString( "Word not installed" ) )

      RETURN NIL

   END

   oWord:Visible := .F.

   oDocument := oWord:documents:open( cFile )

   oDocument:Activate() // new

   oRang := oDocument:Content // new

   oRang:Select() // new

   oText := oWord:selection()

   cText := oText:Text

   oDocument:close() // close .doc

   oWord:Quit() // End

   MsgStop( cText )

RETURN NIL

// FIN / END