How to read settings in Word

[driessen]

Hello,

How can I read a setting of Word in my FWH application?

I need to know the startup-folder of Word?
And if someone knows how, also the startup-folder of Excel or Outlook.

Thank you very much for any help.

[Antonio Linares]

Dear Michel,

from chatGPT 4:

Code: Select all  Expand view  RUN

LOCAL oWord, cStartupPath
oWord = CREATEOBJECT("Word.Application")
cStartupPath = oWord.Options.DefaultFilePath(10) && 10 is wdStartupPath
? "Word Startup Folder:", cStartupPath
oWord.Quit

what specific setting are you looking for ?

[karinha]

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40281&sid=c56426ca68566739547d01904db5c221

Regards, saludos.

[Jimmy]

hi,

I need to know the startup-folder of Word?
And if someone knows how, also the startup-folder of Excel or Outlook.

do you mean which "Start" Folder when User want to "open" a Document or Sheet ?

as it is a Microsoft Product it will use Windows default Folder "Personal Files\Document"
... but File-Dialog Control "might" show you "last Folder"

---

under Xbase++ i have use a "Trick" to show "right" Folder

before call ActiveX i call File-Dialog Control "invisible" to set new Path and than close it
to use a "invisible" Control "just" set Position "outside" Screen e.g. {-1000, -1000}

[driessen]

Thanks a lot for any help.

I have the information I needed.

[driessen]

Hello,

I know now how to read settings in Word.

But can anyone help me in changing the settings in Word?

I also need to know how to put the startup setting in Word back to its default value?

Thank you.

[Antonio Linares]

Dear Michel,

How are you finally reading the settings ?

Please post the code to see how to save them, thanks

[driessen]

Antonio,

This is the code with the method how I read the startup folder of Word :

Code: Select all  Expand view  RUN

******************************************************************************

LOCAL cStartupPath := ""

PRIVATE cWord

WordOle()

cStartupPath := cWord:Options:DefaultFilePath(8) // 8 is wdStartupPath

* CStartupPath contains the startup folder of Word.
* Standard it is : %USERPROFILE%\AppData\Roaming\Microsoft\Word\STARTUP
*                       but it might be changed for external reasons.

******************************************************************************

PROCEDURE WordOle

*  This procedure builds the OLE-connection with Word

   IF (cWord := WinWordObj()) = NIL
      MsgAlert("Microsoft Word wasn't installed on this computer","Alert")
   ENDIF

RETURN

******************************************************************************

I want to change the startup folder of Word from my FWH-application.

Thanks.

[Antonio Linares]

Dear Michel,

Please try this:

cWord:Options:DefaultFilePath(8) = cNewPath
MsgInfo( cWord:Options:DefaultFilePath(8) )

and check if it works and changes the path or generates an error

[driessen]

Antonio,

While compiling your example, I get the error : Error E0022 Invalid lvalue ':'

So the settings in Word can't be changed that way.

[Antonio Linares]

Dear Michel,

Please try it this way:

cWord:Options:DefaultFilePath[8] = cNewPath

[Antonio Linares]

Dear Michel,

Please review this:
https://learn.microsoft.com/en-us/office/vba/api/word.options.defaultfilepath
https://documentation.help/VBAWD10/woproDefaultFilePath.htm

It should work as the first try but Harbour syntax does not allows it

[driessen]

Antonio,

I'm sorry, I wasn't able to solve my last problem yet, but I have a new question.

I need to read in my Fwh-application the exact position where my cursor is in a Word-document.
Later on I have to put the cursor back in its original position.

How can I do this?

Thx.

[Antonio Linares]

Dear Michel,

To save the current current position:

nStartPosition = oWordApp:Selection:Range:Start
nEndPosition = oWordApp:Selection:Range:End

To later restore the cursor position:
oWordApp:Selection:SetRange( nStartPosition, nEndPosition )

[driessen]

Antonio,

Once again, thank you very much.
It's working fine.