How to set focus on Ms word???

[darith]

Hello all, I want vb.net code to set focus or send cursor to ms word. Could you kindly help me?


For example,

Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop

Dim wapp As Word.Application
Dim wdoc As Word.Document
wapp = GetObject(, "Word.Application")
wapp = Nothing
wdoc = wapp.ActiveDocument
wapp.Visible = True

wapp.activedocument.range.text 'if i write like this i will get all text from MS word, but i want to set focus on ms word i want to know vb.net coding to set focus on ms word. if we use text box we just write textbox.focus().

Please help me.

thank very much.

[spacemanafrica]

Try something like this:

In the beginning of your program inside the class declaration:

Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
 
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean
 

then in your method:

Dim wordHandle As IntPtr = FindWindow(vbNullString, "Microsoft Office Word")
If wordHandle = IntPtr.Zero Then
  MsgBox("Oops!  Couldn't find MS Word window!")
Else
    SetForegroundWindow(wordHandle)
End If