Problem on word document open in maximize screen in word 365

I have word document, open that word document in maximize screen directly when i using word 13/16 but problem on word 10/365 it has open but goes to task bar using VB.Net,

Please provide me solution....

What I have tried:

Dim WordApp As New Microsoft.Office.Interop.Word.Application
Dim DocToOpen As Microsoft.Office.Interop.Word.Document
DocToOpen = WordApp.Documents.Open(CStr(szDisplayFile))
WordApp.WindowState = Word.WdWindowState.wdWindowStateMaximize
WordApp.ActiveWindow.ActivePane.View.Zoom.Percentage = 100
WordApp.Visible = True
ActivateDocumentWindow(szDisplayFile)
WordApp.Activate()
Application.DoEvents()
Public Sub ActivateDocumentWindow(ByVal a_strDocName As String)
Dim Alllocal As Process() = Process.GetProcesses()
Dim Item As Process
'Loop through all processes to locate and activate our document
For Each Item In Alllocal
'if the main title is not blank
If Item.MainWindowTitle.ToString <> "" Then
If InStr(Item.MainWindowTitle.ToString, a_strDocName) > 0 Then
Dim intOurDoc As Integer = Item.Id
AppActivate(intOurDoc)
Exit For
End If
End If
Next
End Sub

From https://social.msdn.microsoft.com/Forums/en-US/a90d3890-c472-43ca-9050-bba9d7595f3e/maximize-a-minimized-external-aplication-from-vbnet?forum=vbinterop you can change to:

Private Declare Function ShowWindow Lib "user32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal nCmdShow As SHOW_WINDOW _
) As Boolean
Private Enum SHOW_WINDOW As Integer
SW_HIDE = 0
SW_SHOWNORMAL = 1
SW_NORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_MAXIMIZE = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
SW_FORCEMINIMIZE = 11
SW_MAX = 11
End Enum
Public Sub ActivateDocumentWindow(ByVal a_strDocName As String)
Dim Alllocal As Process() = Process.GetProcesses()
Dim Item As Process
'Loop through all processes to locate and activate our document
For Each Item In Alllocal
'if the main title is not blank
If Item.MainWindowTitle.ToString <> "" Then
If InStr(Item.MainWindowTitle.ToString, a_strDocName) > 0 Then
Dim intOurDoc As Integer = Item.Id
AppActivate(intOurDoc)
ShowWindow(Item.MainWindowHandle, SHOW_WINDOW.SW_MAXIMIZE)
Exit For
End If
End If
Next
End Sub

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Jefferson S. Motta7y ago
From https://social.msdn.microsoft.com/Forums/en-US/a90d3890-c472-43ca-9050-bba9d7595f3e/maximize-a-minimized-external-aplication-from-vbnet?forum=vbinterop you can change to:
Private Declare Function ShowWindow Lib "user32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal nCmdShow As SHOW_WINDOW _
) As Boolean

Private Enum SHOW_WINDOW As Integer
SW_HIDE = 0
SW_SHOWNORMAL = 1
SW_NORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_MAXIMIZE = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
SW_FORCEMINIMIZE = 11
SW_MAX = 11
End Enum



Public Sub ActivateDocumentWindow(ByVal a_strDocName As String)
Dim Alllocal As Process() = Process.GetProcesses()
Dim Item As Process
'Loop through all processes to locate and activate our document
For Each Item In Alllocal
'if the main title is not blank
If Item.MainWindowTitle.ToString <> "" Then
If InStr(Item.MainWindowTitle.ToString, a_strDocName) > 0 Then
Dim intOurDoc As Integer = Item.Id
AppActivate(intOurDoc)

ShowWindow(Item.MainWindowHandle, SHOW_WINDOW.SW_MAXIMIZE)

Exit For
End If
End If
Next
End Sub