FiveTech Support Forums

Hello,

If I open a Word document in my application by using:

odoc := oWord:Documents:Open(cFile)

1. How do I open my document minimized?

2. How do I minimize a document that already has been opened, without using oWord:Visible := .F. which minimizes all my opened Word documents?

Thanks.

Dear Michel,

> 1. How do I open my document minimized?

odoc := oWord:Documents:Open( cFile )

odoc:WindowState := 1 // wdWindowStateMinimize

> How do I minimize a document that already has been opened, without using oWord:Visible := .F. which minimizes all my opened Word documents?

oDoc:Activate()

oDoc:WindowState := 1 // wdWindowStateMinimize

Antonio,

Once again for your help.

Guys,

I have another question about Word and OLE.

This is the situation.

I have 2 applications running together.

Application 1 creates the object jWord

Application 2 creates the object cWord.

The Word-objects are both created by "WinOle()".

If I close Application 2, I perform a "cWord:Quit()". Then Word (cWord) is closed, but also Word (jWord) is closed. If in jWord no document is opened, that is no problem.But in case a document has been opened in jWord, that document is closed to.

So, I need to check in Application 2 if a document is opened in jWord, opened by Application 1. If so, I can't perform "cWord:Quit()".

Any idea how I can do that?

Thank you so much for any help in advance.

To check if a document is opened in jWord by Application 1 before closing cWord in Application 2, you can use the following approach:

In Application 1, keep track of the document state using a variable or flag that indicates whether a document is currently open or not. Set the flag to true when a document is opened in jWord and false when the document is closed.

In Application 2, before calling cWord:Quit(), you can use inter-process communication to check the state of the document in jWord. Here's a general outline of the steps involved:

a. Use a suitable inter-process communication mechanism supported by your programming language or platform, such as named pipes, sockets, or shared memory, to establish communication between Application 1 and Application 2.

b. In Application 1, expose a method or API that returns the current state of the document in jWord (i.e., whether it is open or closed).

c. In Application 2, call the method or API provided by Application 1 to query the document state in jWord. Based on the response received, you can determine whether it's safe to call cWord:Quit().

d. If the document state returned from Application 1 indicates that a document is open in jWord, skip calling cWord:Quit() to avoid closing the shared document.

Note that the exact implementation details may vary depending on the programming languages and frameworks you're using for both applications. Make sure to consult the documentation and resources specific to your development environment for guidance on inter-process communication and exposing APIs.

Public Const WM_COPYDATA As Integer = &H4A

Private Sub CheckJWordDocumentState()
' Find the handle of Application 1
Dim hWnd As IntPtr = FindWindow(Nothing, "Application 1 Window Title") ' Replace "Application 1 Window Title" with the actual title of Application 1

If hWnd <> IntPtr.Zero Then
' Send a message to Application 1 to check the document state
Dim documentState As Boolean = GetJWordDocumentState(hWnd)

If Not documentState Then
' Call cWord:Quit() because no document is open in jWord
cWord.Quit()
Else
' Handle the case when a document is open in jWord
' You can display an error message or prompt the user to close the document manually
End If
End If
End Sub

Private Function GetJWordDocumentState(ByVal hWnd As IntPtr) As Boolean
Dim cds As New CopyDataStruct()
cds.dwData = IntPtr.Zero
cds.lpData = String.Empty
cds.cbData = 0

Dim result As IntPtr = SendMessage(hWnd, WM_COPYDATA, IntPtr.Zero, cds)

If cds.cbData = 1 AndAlso cds.lpData <> String.Empty Then
Return cds.lpData = "1"
End If

Return False ' Default state if an error occurred
End Function

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowW" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByRef lParam As CopyDataStruct) As IntPtr

In your code, call the CheckJWordDocumentState() method before closing Application 2 or before invoking cWord:Quit().
Note: Replace "Application 1 Window Title" in Application 2 code with the actual title of the Application 1 window. Ensure that both applications are running with their respective windows open before attempting to check the document state.

Thanks again, Antonio,

I check it out this afternoon and I will reply with the result.

Antonio,

What if I don't know the title of the window of the other application is changing while using the application?

Dear Michel,

Maybe we can find the window based on its class name instead of its title. We need to do some research about it...

Dear Michel,

Is your main FWH window MDI ?

Antonio,

No, it is not MDI.

Is there any specific reason why you need to call cWord:Quit() ?

Yes.

If app 1 is closed, its Word niets to quit, but the word of app 2 can’t nr closed