MS Word 2007 spell check window issue

[glshaji]

I am using windows vista and office 2007 ( licensed version). When I am
invoking word spell check with SAP system or remedy change management or
any other system, the spell check windows moves behind the screen.
Please assist what fix required to view the spell check window top of
the screen.

 

[Beth Melton]

The remedy you seek would need to be included in your SAP or remedy system.
It sounds like these applications are automating Word and the issue lies in
their automation procedure and the other systems are 'stealing' focus. This
is a common issue in automation and can be easily corrected with a couple
lines of code but it's not something you can change in Word.

~Beth Melton
Microsoft Office MVP

 

[glshaji]

Thanks Beth Melton
I am using following code to activate spell check
CREATE OBJECT word 'Word.Application'.
SET PROPERTY OF word 'VISIBLE' = 0.

CALL METHOD OF word 'DOCUMENTS' = documents.
CALL METHOD OF documents 'ADD' = document.
CALL METHOD OF document 'ACTIVATE'.
CALL METHOD OF word 'SELECTION' = selection.
CALL METHOD OF document 'CHECKSPELLING'.

CALL METHOD OF word 'QUIT' EXPORTING #1 = 0.

What method I need to call to visible the spell check window on top of
SAP.

 

[tzeringue]

I am having a similar problem using VB 6 on a computer with Word 2007
and Vista operating system. This works fine with XP. My code is :

Public Function SpellChecker(strText As String, Optional blnUcase As
Boolean = False) As String
Dim strTemp As String
If appWord Is Nothing Then
Set appWord = CreateObject("Word.Application") 'set up
reference to word
End If
With appWord
..Visible = False 'Hide word from user
..Documents.Add 'open new hidden document
Clipboard.Clear 'clear clipboard
Clipboard.SetText strText 'copy string to clipboard
..Selection.Paste 'paste selection to word doc
'activate the spell checker ignore upper case is false, always
suggest is true
..ActiveDocument.CheckSpelling , False, True
..Visible = False
..ActiveDocument.Select 'select the corrected text
..Selection.Cut 'cut the corrected text to the clipboard
strTemp = Clipboard.GetText
..ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
..Quit
End With
Set appWord = Nothing
If blnUcase Then
SpellChecker = UCase(strTemp)
Else
SpellChecker = strTemp
End If
End Function

What lines of code do I have to add to correct this problem.
Thanks in advance.