☰

切換「深色模式」頁面顏色的宏，有一些問題嗎？

tag-icon • tag-icon microsoft-word vba macros colors
切換「深色模式」頁面顏色的宏，有一些問題嗎？

我嘗試建立 VBA 巨集來更改頁面顏色並使其與 Microsoft Office 全深色模式背景相同。

我的問題是，當我在新文件上運行巨集時，它實際上一開始並沒有改變頁面顏色。進入設計>頁面顏色向我表明巨集確實切換了我想要的顏色，但頁面本身並沒有相應改變。我必須手動按下它才能真正“確認”。然後，我可以透過巨集毫無問題地切換/取消切換顏色。關於出了什麼問題有什麼想法嗎？

這是我的程式碼：

Sub DarkMode()
'
' DarkMode Macro
If ActiveDocument.Background.Fill.Visible = msoFalse Then
ActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _
    wdThemeColorText1
ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0.15
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Else
ActiveDocument.Background.Fill.Visible = msoFalse
End If

End Sub

答案1

您需要透過新增ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True程式碼來允許視圖顯示背景。

完整的程式碼將變為：

 Sub DarkModeNewPage()

 ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
 If ActiveDocument.Background.Fill.Visible = msoFalse Then
    ActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _
       wdThemeColorText1
    ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0.15
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
 Else
    ActiveDocument.Background.Fill.Visible = msoFalse
 End If


 End Sub

相關內容