Hi all,

Does anyone have a sample for Word automation. I want to read a document (.doc) make some changes (like font for some lines) and save it.

Thanks all

George

Hi George,

First create a new module (e.g. _MsWord) and import the autoation server for Word.
Here is a little method that does what you want.

METHOD DoOpenWord(cFileName) CLASS StandardSDIWindow
LOCAL oWord AS WDApplication
LOCAL oDoc AS WDDocument
LOCAL oDocs AS WDDocuments
LOCAL oSelection AS WDSelection
LOCAL oFind AS WDFind
LOCAL lRet AS LOGIC
LOCAL uTemp AS USUAL
oWord := WDApplication{}
oDocs := oWord:Documents
oWord:Visible := TRUE // FALSE
oDoc := oDocs:Open(cFileName)
oSelection := oWord:Selection
oSelection:HomeKey( 6, 0 )
oFind := oSelection:Find
oFind:ClearFormatting()
oFind:Text := "Veranstaltung"
lRet := oFind:Execute()
IF lRet
oSelection := oWord:Selection
oSelection:Style := oSelection:Document:Styles:Item("Überschrift 1")
oSelection:Font:Italic := TRUE
oSelection:Font:Size := 25.1
uTemp := oSelection:Font:Underline := TRUE
oDoc:Save()
oWord:Quit()
ENDIF
/*
Selection.Find.ClearFormatting
With Selection.Find
.Text = "200677"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

End With
*/
RETURN NIL

Best regards
Norbert

On Monday, May 15, 2023 at 10:48:48 PM UTC+2, Γεωργιος Τριτσος wrote:
> Hi all,
>
> Does anyone have a sample for Word automation. I want to read a document (.doc) make some changes (like font for some lines) and save it.
>
> Thanks all
>
> George

Στις Τρίτη 16 Μαΐου 2023 στις 4:10:17 μ.μ.. UTC+3, ο χρήστης Norbert Kolb έγραψε:
> Hi George,
>
> First create a new module (e.g. _MsWord) and import the autoation server for Word.
> Here is a little method that does what you want.
>
> METHOD DoOpenWord(cFileName) CLASS StandardSDIWindow
> LOCAL oWord AS WDApplication
> LOCAL oDoc AS WDDocument
> LOCAL oDocs AS WDDocuments
> LOCAL oSelection AS WDSelection
> LOCAL oFind AS WDFind
> LOCAL lRet AS LOGIC
> LOCAL uTemp AS USUAL
>
> oWord := WDApplication{}
> oDocs := oWord:Documents
> oWord:Visible := TRUE // FALSE
> oDoc := oDocs:Open(cFileName)
> oSelection := oWord:Selection
> oSelection:HomeKey( 6, 0 )
> oFind := oSelection:Find
> oFind:ClearFormatting()
> oFind:Text := "Veranstaltung"
> lRet := oFind:Execute()
> IF lRet
> oSelection := oWord:Selection
> oSelection:Style := oSelection:Document:Styles:Item("Überschrift 1")
> oSelection:Font:Italic := TRUE
> oSelection:Font:Size := 25.1
> uTemp := oSelection:Font:Underline := TRUE
> oDoc:Save()
> oWord:Quit()
> ENDIF
>
> /*
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "200677"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindAsk
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
>
> End With
> */
>
> RETURN NIL
>
> Best regards
> Norbert
> On Monday, May 15, 2023 at 10:48:48 PM UTC+2, Γεωργιος Τριτσος wrote:
> > Hi all,
> >
> > Does anyone have a sample for Word automation. I want to read a document (.doc) make some changes (like font for some lines) and save it.
> >
> > Thanks all
> >
> > George

Hi Norbert,

Thanks for reply. I will try your method.

Regards
George

Στις Τρίτη 16 Μαΐου 2023 στις 8:46:52 μ.μ.. UTC+3, ο χρήστης Γεωργιος Τριτσος έγραψε:
> Στις Τρίτη 16 Μαΐου 2023 στις 4:10:17 μ.μ. UTC+3, ο χρήστης Norbert Kolb έγραψε:
> > Hi George,
> >
> > First create a new module (e.g. _MsWord) and import the autoation server for Word.
> > Here is a little method that does what you want.
> >
> > METHOD DoOpenWord(cFileName) CLASS StandardSDIWindow
> > LOCAL oWord AS WDApplication
> > LOCAL oDoc AS WDDocument
> > LOCAL oDocs AS WDDocuments
> > LOCAL oSelection AS WDSelection
> > LOCAL oFind AS WDFind
> > LOCAL lRet AS LOGIC
> > LOCAL uTemp AS USUAL
> >
> > oWord := WDApplication{}
> > oDocs := oWord:Documents
> > oWord:Visible := TRUE // FALSE
> > oDoc := oDocs:Open(cFileName)
> > oSelection := oWord:Selection
> > oSelection:HomeKey( 6, 0 )
> > oFind := oSelection:Find
> > oFind:ClearFormatting()
> > oFind:Text := "Veranstaltung"
> > lRet := oFind:Execute()
> > IF lRet
> > oSelection := oWord:Selection
> > oSelection:Style := oSelection:Document:Styles:Item("Überschrift 1")
> > oSelection:Font:Italic := TRUE
> > oSelection:Font:Size := 25.1
> > uTemp := oSelection:Font:Underline := TRUE
> > oDoc:Save()
> > oWord:Quit()
> > ENDIF
> >
> > /*
> > Selection.Find.ClearFormatting
> > With Selection.Find
> > .Text = "200677"
> > .Replacement.Text = ""
> > .Forward = True
> > .Wrap = wdFindAsk
> > .Format = False
> > .MatchCase = False
> > .MatchWholeWord = False
> > .MatchWildcards = False
> > .MatchSoundsLike = False
> > .MatchAllWordForms = False
> >
> > End With
> > */
> >
> > RETURN NIL
> >
> > Best regards
> > Norbert
> > On Monday, May 15, 2023 at 10:48:48 PM UTC+2, Γεωργιος Τριτσος wrote:
> > > Hi all,
> > >
> > > Does anyone have a sample for Word automation. I want to read a document (.doc) make some changes (like font for some lines) and save it.
> > >
> > > Thanks all
> > >
> > > George
> Hi Norbert,
>
> Thanks for reply. I will try your method.
>
> Regards
> George
Hi Norbert,

I tested your method but i take error.

Regards
George

16/05/2023 10:06:02 μμ
Error Message:
--------------
SubSystem: BASE
Operation:
Function: CHECKINSTANCEOF
Argument: WDDOCUMENTS <-> OLEAUTOOBJECT
CallStack:
CUSTOMERALLMOVES:LoadDoc (Line:9)
CUSTOMERALLMOVES:PB_EXPDoc (Line:3)
CUSTOMERS:PB_MOVES (Line:19)
MNGINV:DOCUSTOMER (Line:5)
APP:START (Line:34)

Error Object created:
--------------------
SubSystem :BASE
SubCode : 0
GenCode :Wrong class
OsCode : 0
Severity : 0
CanDefault :.F.
CanRetry :.F.
CanSubstitute :.T.
Operation :
Description :
FileName :
Tries : 0
FuncSym :CHECKINSTANCEOF
FileHandle : 0
ArgNum : 0
FuncPtr :0x00000000
SubCodeText :
Arg :WDDOCUMENTS <-> OLEAUTOOBJECT
ArgType :NIL
ArgTypeReq :NIL
MaxSize : 0
SubstituteType :LOGIC
CallFuncSym :
--------------------

My Code:
METHOD CreatPDF(sFileName) CLASS CustomerAllMoves
LOCAL oWord AS WDApplication
LOCAL oDoc AS WDDocument
LOCAL oDocs AS WDDocuments
LOCAL oSelect AS WDSelection

oWord:=WDApplication{}
oWord:Visible:=TRUE
oDocs:=oWord:Documents
oDoc:=oDocs:Open(sFileName)
oWord:Quit()

RETURN NIL

Hi George,
did you create the automation server for word first. All the classes and methods you need for Word are generated there.
Vo menu: Tools -> Automation Server (Word)

The error message indicates that the programme cannot find these classes.

Kind regards
Norbert

Στις Τρίτη 16 Μαΐου 2023 στις 10:57:02 μ.μ. UTC+3, ο χρήστης Norbert Kolb έγραψε:
> Hi George,
> did you create the automation server for word first. All the classes and methods you need for Word are generated there.
> Vo menu: Tools -> Automation Server (Word)
>
> The error message indicates that the programme cannot find these classes.
>
> Kind regards
> Norbert
Hi Norbert,
Yes first of all i was create the automation,
WDApplication
WDFont
WDSelection
WDDocument
WDDocuments
WDRange

The follow lines is ok
oWord:=WDApplication{}
oWord:Visible:=TRUE
but the line of error is
oDocs:=oWord:Documents

I was create again automation but the same.
I am searching whats going on.

Regards
George

Another thought: Is your Word 32 or 64 bit? VO can only work with the 32 bit version.

Στις Τετάρτη 17 Μαΐου 2023 στις 1:12:28 π.μ. UTC+3, ο χρήστης Norbert Kolb έγραψε:
> Another thought: Is your Word 32 or 64 bit? VO can only work with the 32 bit version.
Hi Norbert,
I was check word and is 32bit.
Regards
George