Ouvrir un document Word Fullscreen

Question

Comment ouvrir un document Word en mode plein écran? Il n'est pas ouvert sous une forme, il s'ouvre avec le code suivant:

Private MSWord As New Word.Application 
Private WordDoc As New Word.Document 

Private Sub OpenWordFullScreen(ByVal ReportName As String) 
    MSWord = New Word.Application 

    WordDoc = MSWord.Documents.Open("C:\" & ReportName & ".doc") 

    'Make MSWord visible 
    MSWord.WindowState = Word.WdWindowState.wdWindowStateMaximize 
    MSWord.Visible = True 
End Sub 

Answer 1

Pour ouvrir mot en plein écran, vous ajoutez l'extrait de code suivant:

WordDoc.ActiveWindow.View.FullScreen = True 

donc votre code ressemblera à ceci :

Private Sub OpenWordFullScreen(ByVal ReportName As String) 
    MSWord = New Word.Application 

    WordDoc = MSWord.Documents.Open("C:\" & ReportName & ".doc") 

    'Make MSWord Visible 
    MSWord.Visible = True 
    WordDoc.ActiveWindow.View.FullScreen = True 
End Sub