FiveTech Software tech support forums

Code: Select all  Expand view

oWord1 := TOleAuto():New("Word.application")
oDoc1 := oWord1:Documents:Open(cFile1)

oWord2 := TOleAuto():New("Word.application")
oDoc2 := oWord2:Documents:Open(cFile2)

Open the relevant Microsoft Office application (e.g., Word, Excel).
Click "File" in the top-left corner.
Click "Options" to open the Options dialog box.
Select "Trust Center" from the left-hand menu, then click the "Trust Center Settings" button.
In the Trust Center dialog, click "Macro Settings" in the left-hand menu.
Select "Disable all macros with notification" (if not already selected). This setting will allow you to enable macros on a per-document basis with the "Enable Content" button.
Click "OK" to close the Trust Center dialog, then click "OK" again to close the Options dialog.
Close and reopen the document. You should now see the yellow bar with the "Enable Content" button. Click it to enable macros for this specific document.

Open the relevant Microsoft Office application (e.g., Word, Excel).
Click "File" in the top-left corner.
Click "Options" to open the Options dialog box.
Select "Trust Center" from the left-hand menu, then click the "Trust Center Settings" button.
In the Trust Center dialog, click "Trusted Locations" in the left-hand menu.
Click the "Add new location" button.
Browse to the folder where the document is located, select it, and click "OK."
Make sure the "Subfolders of this location are also trusted" option is checked if you want to trust all subfolders.
Click "OK" to close the Trust Center dialog, then click "OK" again to close the Options dialog.
Close and reopen the document. Macros should now be enabled for documents from the trusted location.

driessen wrote:Hello,

I want to open 2 Word-documents in my application.

This is the source code I use:

Code: Select all  Expand view

oWord1 := TOleAuto():New("Word.application")
oDoc1 := oWord1:Documents:Open(cFile1)

oWord2 := TOleAuto():New("Word.application")
oDoc2 := oWord2:Documents:Open(cFile2)

When the line starting with oWord2 is executed, this message always appears:



Does anyone know why this message appears?
Is there a solution to avoid this message?
Thank you very much in advance for any help.

Code: Select all  Expand view

oWord  := WinWordObj()
oDoc1 := oWord:Documents:Open( cFile1 )
oDoc2 := oWord:Documents:Open( cFile2 )
 

Code: Select all  Expand view

Function OutlookObj(); return FWGetOleObject( "Outlook.Application",   @lOutlook  )