如何打开word文件可全屏显示

冬冬

每次演示时打开word文件都有菜单栏、工具栏，本人希望在窗体中打开一个word文件，该文件可象ppt文件按F5一样可全屏显示，方便演示word文件。不知该功能能否实现，要保留原word的字体、字号等格式，代码如何写。

liwen

Sub AutoOpen()
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub

冬冬

不知如何使用？一般读取word文件都采用以下代码，该如何添加？
    Dim oApp As Object
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    oApp.Documents.Open "C:\a.doc"

再请问，word文件可否在窗体中或文本框或其它对象框中显示。

tmtony

oApp.windowstate

冬冬

还是没搞懂，怎么试还是不行，能否详细给个代码。

还有word文件可否在窗体中或文本框或其它对象框中显示？有没有那位前辈有做过。

liwen

Dim oApp As Object
'Dim oApp As Word.Application
  Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    oApp.Documents.Open "C:\a.doc"
  oApp.Activate
    oApp.WindowState = 1 'wdWindowStateMaximize
  oApp.ActiveWindow.View.FullScreen = Not oApp.ActiveWindow.View.FullScreen ‘True


下面这个是放入word文档中的一个模块中的语句，使用上面的语句就可不用下面的语句了。
Sub AutoOpen()
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub

liwen

原帖由 冬冬 于 2007-12-29 11:58 发表
还有word文件可否在窗体中或文本框或其它对象框中显示？

使用OLE嵌入对象，可在窗体中编辑嵌入的WORD文档，不过我感觉这样编辑不方便。