☰

Macro para alternar el color de la página en 'modo oscuro', ¿algunos problemas?

tag-icon • tag-icon microsoft-word vba macros colors
Macro para alternar el color de la página en 'modo oscuro', ¿algunos problemas?

Intenté crear una macro de VBA para cambiar el color de la página y hacerla igual que el fondo del modo oscuro de Microsoft Office.

Mi problema es que cuando ejecuto la macro en un documento nuevo, al principio no cambia el color de la página. Entrar enDiseño>Color de páginame muestra que la macro efectivamente cambió el color que quiero, pero la página en sí no cambia en consecuencia. Tengo que presionarlo manualmente para que realmente "confirme". Luego, puedo alternar/desactivar el color a través de mi macro sin problemas. ¿Alguna idea sobre lo que está yendo mal?

Aquí está mi código:

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

Respuesta1

Debe permitir que Ver muestre fondos agregando ActiveDocument.ActiveWindow.View.DisplayBackgrounds = Trueal código.

El código completo sería:

 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

información relacionada