首页 > 其他 > 详细

DisplayPageBoundaries 打开word后自动将页面间空白隐藏 (auto+定时器)

时间:2017-10-04 19:11:44      阅读:338      评论:0      收藏:0      [点我收藏+]

每次打开文档都要鼠标点击页面间空白处,将其隐藏

尝试过在

AutoOpen,
AutoExec
等宏中添加
ActiveWindow.View.DisplayPageBoundaries = False
但没有效果

 

今天发现可以在vba中设置定时器,尝试

AutoOpen
中添加一个定时器,由定时器回调函数实现
ActiveWindow.View.DisplayPageBoundaries = False

 

Sub HiddenPageBoundaries()
    On Error Resume Next
    ActiveWindow.View.DisplayPageBoundaries = False
    MsgBox ("Hiden Page Bounaries!")
End Sub

Sub AutoOpen()
    On Error Resume Next
    Application.DisplayAlerts = wdAlertsNone
    ActiveWindow.View.ShowSpaces = False
    Application.OnTime When:=Now + TimeValue("00:00:02"), Name:="HiddenPageBoundaries", Tolerance:=0
End Sub

 

参考

OnTime 

 

DisplayPageBoundaries 打开word后自动将页面间空白隐藏 (auto+定时器)

原文:http://www.cnblogs.com/itzxy/p/7626986.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!