如何打开直接到阅读版式？

denny_dzw

小弟 对 word 的对象 不熟悉 ，找了半天都没找到，不如直接请教！

Private Sub Document_Open()
Application.??
End Sub

请问如何打开直接到阅读版式？

denny_dzw

最好把工具栏，状态栏啥的杂物统统干掉！

谢谢

c81

ActiveWindow.View.ReadingLayout = False  or true

至于隐藏工具栏或状态栏代码到处都能搜到。

denny_dzw

谢谢，感激

frankljy

Sub ClearAllToolBars()
    Dim aCommandBar As CommandBar
    For Each aCommandBar In CommandBars
        If aCommandBar.Visible = True Then
            If aCommandBar.Name <> "Menu Bar" Then
                aCommandBar.Visible = False
            End If
        End If
    Next
End Sub

denny_dzw

不行啊，大哥

denny_dzw

ActiveWindow.View.ReadingLayout = False 

ActiveWindow.View.ReadingLayout = true

不行啊，大哥

frankljy

你的Word是什么版本的啊？Word2000里好像没有阅读版式的

如意

QUOTE:

以下是引用frankljy在2006-8-16 10:32:03的发言：

你的Word是什么版本的啊？Word2000里好像没有阅读版式的

阅读版式是Word2003的新增功能。