Hi all. I have a macro that I use in Writer for formatting a document. One of the tasks I do is to call the built-in spell checker, then lastly allow the user to save the document as something else.
The problem is, the saveas dialogue box is called as soon as the spell check in called, it doesn’t wait for it to be closed first.
Is there any document property that will allow me to see that it is in spell check mode, or a way to query the spell check window state?
Version: 25.2.3.2, Windows 10
I only know of intricate ways.
One of them:
The listener can then determine the moment the dialog box is opened and closed.
The Useful Macro Information For OpenOffice.org By Andrew Pitonyak book has examples of this technique from A. Pitonyak and @ms777 (section “Manipulating the Options dialog”)
@sokol92, this worked a treat, thanks. I used the “Finding an open window” code from his pdf file. For everyone else, here’s my code that calls it and Andrew Pitonyak’s function.
'Wait for the Spellcheck to finish before continuing
windowTitle = GetOpenWindow("Spelling")
While Not IsNull(windowTitle)
windowTitle = GetOpenWindow("Spelling")
Wait(250)
wend
pdfFilePath = SaveFinalFile 'return an empty string if it was cancelled
'------------------- GetOpenWindow
REM Iterate through the open dialogs and find the one that starts with
REM sTitle.
Function GetOpenWindow(sTitle as String) As Object
Dim oToolkit
Dim lCount As Long
Dim k As Long
Dim oWin
oToolkit = Stardesktop.ActiveFrame.ContainerWindow.Toolkit
lCount = oToolkit.TopWindowCount
For k = 0 To lCount - 1
oWin = oToolkit.getTopWindow(k)
If HasUnoInterfaces(oWin, "com.sun.star.awt.XDialog") Then
If left(oWin.Title, len(sTitle)) = sTitle Then
GetOpenWindow = oWin
Exit Function
End If
End If
Next k
End Function
Thanks for the code.
When searching for a dialog by title, there is a localization issue that English-language macro writers do not always take into account.
It is better to use a locale-independent approach when searching for a dialog box.
Function GetOpenWindow2(Byval accessibleId as String) As Object
Dim oToolkit as Object
Dim k As Long
Dim oWin as Object
oToolkit = Stardesktop.ActiveFrame.ContainerWindow.Toolkit
On Error Goto ErrLabel
For k = 0 To oToolkit.TopWindowCount - 1
oWin = oToolkit.getTopWindow(k)
If HasUnoInterfaces(oWin, "com.sun.star.awt.XDialog") Then
If oWin.AccessibleContext.AccessibleId = accessibleId Then
GetOpenWindow2 = oWin
Exit Function
End If
End If
ErrLabel:
Next k
End Function
Sub Test
Dim oWin as Object
oWin = GetOpenWindow2("SpellingDialog")
If Not (oWin is Nothing) Then
Msgbox "Found dialog with title: " & oWin.Title
Else
Msgbox "Dialog not found"
End If
End Sub
Note that you also need to check if that supports com.sun.star.accessibility.XAccessible; otherwise, it’s not safe to call its getAccessibleContext.
@mikekaganski , thank you for your comment.
Version 2.
' lang:en
' Returns the value of accessible property propName of obj object or Empty.
Function GetAccessibleProperty(ByVal obj As Object, ByVal propName As String)
If Not HasUnoInterfaces(obj, "com.sun.star.accessibility.XAccessibleContext") Then
If HasUnoInterfaces(obj, "com.sun.star.accessibility.XAccessible") Then
obj = obj.AccessibleContext
Else
Exit Function
End If
End If
On Error GoTo ErrLabel
GetAccessibleProperty=CallByName(obj, propName, 2)
ErrLabel:
End Function
' lang: en
' Finds the top-level window by value of AccessibleID property.
Function GetDialogWindowByID(ByVal AccessibleId As String) As Object
Dim oToolkit as Object
Dim k As Long
Dim oWin as Object
oToolkit = Stardesktop.ActiveFrame.ContainerWindow.Toolkit
For k = 0 To oToolkit.TopWindowCount - 1
oWin = oToolkit.getTopWindow(k)
If HasUnoInterfaces(oWin, "com.sun.star.awt.XDialog") Then
If GetAccessibleProperty(oWin, "AccessibleId") = AccessibleId Then
GetDialogWindowByID=oWin
Exit Function
End If
End If
Next k
End Function
Sub Test
Dim oWin as Object
oWin = GetDialogWindowByID("SpellingDialog") ' Or "OptionsDialog", "FindReplaceDialog", ...
If Not (oWin is Nothing) Then
Msgbox "Found dialog with title: " & oWin.Title & Chr(10) & _
"Description:" & Chr(10) & GetAccessibleProperty(oWin, "AccessibleDescription")
Else
Msgbox "Dialog not found"
End If
End Sub
@sokol92, @mikekaganski, thank you both for your contributions. I’m using v2 and it seems to be working exactly how I wanted.