1. 程式人生 > >DisplayPageBoundaries 打開word後自動將頁面間空白隱藏 (auto+定時器)

DisplayPageBoundaries 打開word後自動將頁面間空白隱藏 (auto+定時器)

win strong als when clas auto 定時 今天 自動

每次打開文檔都要鼠標點擊頁面間空白處,將其隱藏

嘗試過在

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+定時器)