Problem on word document open in maximize screen in word 365

Question

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

Jefferson S. Motta · Answer

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