-
Kevin Thai
- PowerBuilder
- Tuesday, 26 April 2022 08:32 PM UTC
Hi all,
I am currently on PB 2021 Build 1506, and am trying to add Microsoft Word Spell and Grammar check into our Application. I am able to get the SpellCheck to work, however most of the time the window popups behind everything and make it often look like the Application has frozen unless you know to ALT+Tab to find the window. We currently want to make the Microsoft Word invisible expect for the Spell and Grammar Window. I did find some old post about this very same issue, using SetForegroundWindow((ll_Hwnd)) , SetActiveWindow(ll_Hwnd) , BringWindowToTop(ll_Hwnd) to bring the window up. My issue right now is since Powerbuilder waits for the Spellcheck window to close before running the next line of code, is there a way to trigger the bringtotop function while Powerbuilder is waiting? Or if anyone has a better solution please let me know. I will post my code for reference
Your help is much appreciated!
Here is code for grammar check execution:
string as_text
Long ll_RC
// Connect to Word and do a spell-check
lole_Spell = CREATE OleObject
ll_RC = lole_Spell.ConnectToNewObject( 'Word.Application' )
IF ll_RC <> 0 THEN
DESTROY lole_Spell
END IF
as_text = sle_1.text
lole_Spell.Application.Visible = false
lole_Spell.Application.WindowState = 2
lole_Spell.Documents.Add()
lole_Spell.Selection.TypeText( as_Text )
lole_Spell.Selection.HomeKey()
lole_Spell.Selection.MoveStart()
lole_Spell.ActiveDocument.CheckGrammar()
lole_Spell.ActiveDocument.Select()
as_Text = lole_Spell.Selection.Text
lole_Spell.ActiveDocument.Close( False )
lole_Spell.Application.Quit
lole_Spell.DisconnectObject()
DESTROY lole_Spell
sle_1.text = as_text
Code for BringToTop of Window
string ls_null
SetNull (ls_Null)
// Get handle of Spell Check window
ll_Hwnd = FindWindowA ( ls_Null, 'Spell and Grammar Check')
SetForegroundWindow((ll_Hwnd))
SetActiveWindow(ll_Hwnd)
BringWindowToTop(ll_Hwnd)
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.