Word question

[Otto]

Can someone please help me to convert this to FIVEWIN code:

ActiveDocument.SaveAs FileName:=strDocName, FileFormat:=wdFormatXMLDocument

Thanks in advance
Otto

[ADutheil]

Code: Select all  Expand view

FUNCTION TEST
LOCAL oWord := WinWordObj()
LOCAL oDoc

oDoc := oWord:Documents:Add()
#define wdFormatXMLDocument 12
oDoc:saveas( "path where you want to save\FileName", wdFormatXMLDocument )
oWord:Quit()
RETURN NIL
 

or to be closer to the way you asked:

Code: Select all  Expand view

FUNCTION TEST
LOCAL oWord := WinWordObj()
LOCAL oDoc

oWord:Documents:Add()
oDoc := oWord:ActiveDocument

 #define wdFormatXMLDocument 12
oDoc:saveas( "path where you want to save\FileName", wdFormatXMLDocument )
oWord:Quit()
RETURN NIL
 

[Otto]

André,
thank you very much.
Now all is working so well.
Best regards,
Otto