想达到的效果: 文档一打开就显示审阅窗格,如图所示:
通过录制宏代码可得: ActiveWindow.View.SplitSpecial = wdPaneRevisions
转成JS之后的参考代码: 在OndocumentOpened事件里通过代码控制显示审阅窗格:
<!--控件事件写法等均为标准写法,此处采用for event方式(适用于IE下),若使用AttachEvent或AddEventListener等
方式必须注意使用的方式的适用范围如AddEventListener方式适用于IE11,而AttachEvent则不适用-->
<!--文档完全打开触发的OndocumentOpened事件 -->
<script type="text/jscript" language="javascript" for="TANGER_OCX" event="OnDocumentOpened(url,doc)">
TANGER_OCX_OBJ.ActiveDocument.ActiveWindow.View.SplitSpecial=18;//显示修订窗格 审阅--修订--审阅窗格
//TANGER_OCX_OBJ.ActiveDocument.Protect(0,0,"123");//设置痕迹保护模式
//TANGER_OCX_OBJ.ToolBars=false;//可隐藏工具栏 office 上的开始插入等等
</script>
附VBA接口详情:
Word 开发人员参考
Word 开发人员参考 |
WdSpecialPane 枚举View.SplitSpecial 属性
返回或设置活动窗口的窗格。WdSpecialPane 类型,可读写。
语法
表达式.SplitSpecial
表达式 一个代表 View 对象的变量。 |
指定要在活动窗口的窗格中显示的项。
版本信息
已添加版本:
名称 | 值 | 说明 |
wdPaneComments | 15 | 所选批注。 |
wdPaneCurrentPageFooter | 17 | 页脚。 |
wdPaneCurrentPageHeader | 16 | 页眉。 |
wdPaneEndnoteContinuationNotice | 12 | 尾注延续标记。 |
wdPaneEndnoteContinuationSeparator | 13 | 尾注延续分隔符。 |
wdPaneEndnotes | 8 | 尾注。 |
wdPaneEndnoteSeparator | 14 | 尾注分隔符。 |
wdPaneEvenPagesFooter | 6 | 偶数页页脚。 |
wdPaneEvenPagesHeader | 3 | 偶数页页眉。 |
wdPaneFirstPageFooter | 5 | 首页页脚。 |
wdPaneFirstPageHeader | 2 | 首页页眉。 |
wdPaneFootnoteContinuationNotice | 9 | 脚注延续标记。 |
wdPaneFootnoteContinuationSeparator | 10 | 脚注延续分隔符。 |
wdPaneFootnotes | 7 | 脚注。 |
wdPaneFootnoteSeparator | 11 | 脚注分隔符。 |
wdPaneNone | 0 | 无显示。 |
wdPanePrimaryFooter | 4 | 主页脚窗格。 |
wdPanePrimaryHeader | 1 | 主页眉窗格。 |
wdPaneRevisions | 18 | 修订窗格。 |
wdPaneRevisionsHoriz | 19 | 修订窗格沿着文档窗口的底部显示。 |
wdPaneRevisionsVert | 20 | 修订窗格沿着文档窗口的左侧显示。 |
|