打开Word文档全屏

Question

如何以全屏模式打开Word文档？它不是在形式打开，它就会打开用下面的代码：

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

要在全屏模式打开word，添加以下代码片段：

WordDoc.ActiveWindow.View.FullScreen = True 

所以，你的代码看起来像这样：

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