對接上一自用模板，為功能有切換頁面護眼綠()、切換頁面視圖、模擬快捷鍵點擊，可以為其添加快捷鍵

Sub 切換頁面護眼綠()If (ActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _wdThemeColorAccent6) ThenActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _wdThemeColorBackground1ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0#ActiveDocument.Background.Fill.Visible = msoTrueActiveDocument.Background.Fill.SolidElseActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _wdThemeColorAccent6ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0.8ActiveDocument.Background.Fill.Visible = msoTrueActiveDocument.Background.Fill.Solid End IfEnd Sub

折騰了好久，試了好多好多遍才找到適合WPS的方案
那個RGB顏色不是真的RGB，得去word哪里邊錄制宏邊調字體背景顏色才弄找得到自己想要的顏色.
但是呢，得手動變化一次背景太麻煩了

Sub 護眼綠切換() ' ' Macro1 Macro ' 宏由 lalal 錄制，時間: 2023/02/19If (ActiveDocument.Background.Fill.ForeColor.RGB = _wdColorWhite) ThenActiveDocument.Background.Fill.ForeColor.RGB = 14149338 ElseActiveDocument.Background.Fill.ForeColor.RGB = wdColorWhite End IfEnd Sub

經常要并排查看word，而放大后有經常是顯示不全，web視圖就很好解決問題，設置快捷鍵即可一鍵切換

Sub web視圖切換() 'If (ActiveWindow.ActivePane.View.Type = wdPrintView) ThenActiveWindow.ActivePane.View.Type = wdWebViewElseActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfEnd Sub

模擬點擊，因為個人習慣設置F4是閱讀文字

Sub 按鍵F4() //模擬鍵盤點擊F4Set WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "{F4}" End Sub;但WPS只能觸發一次，在wps用vba真的太難受了 Sub 組合鍵打開段落設置() 'Set WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "%{h}{k}{down 6}{enter}"End Sub

總結

以上是生活随笔為你收集整理的【VBA自用常用模板2】WORD/WPS办公宏实现切换页面背景/切换页面视图的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。