☰

'어두운 모드' 페이지 색상을 전환하는 매크로, 몇 가지 문제가 있습니까?

tag-icon • tag-icon microsoft-word vba macros colors
'어두운 모드' 페이지 색상을 전환하는 매크로, 몇 가지 문제가 있습니까?

페이지 색상을 변경하고 Microsoft Office 전체의 어두운 모드 배경과 동일하게 만들기 위해 VBA 매크로를 만들려고 했습니다.

내 문제는 새 문서에서 매크로를 실행할 때 처음에는 실제로 페이지 색상이 변경되지 않는다는 것입니다. 들어가다디자인>페이지 색상매크로가 실제로 내가 원하는 색상을 전환했지만 페이지 자체는 그에 따라 변경되지 않았음을 보여줍니다. 실제로 '확인'하려면 수동으로 눌러야 합니다. 그런 다음 문제 없이 매크로를 통해 색상을 전환/전환 해제할 수 있습니다. 무엇이 잘못되고 있는지에 대한 아이디어가 있습니까?

내 코드는 다음과 같습니다.

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

관련 정보