Sub DarkRoom()
'
' DarkRoom
' Macro recorded 2/4/2008 by Michelle Vermillion
'
    CommandBars("Full Screen").Enabled = False
    ActiveDocument.Background.Fill.ForeColor.RGB = wdColorBlack
    ActiveDocument.Background.Fill.Solid
    With ActiveDocument.Content.Font
        .Color = wdColorBrightGreen
    End With
    ActiveWindow.View.Type = wdWebView
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub
Sub LightRoom()
'
' LightRoom
' Macro recorded 2/4/2008 by Michelle Vermillion
'
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
    ActiveWindow.View.Type = wdPrintView
    With ActiveDocument.Content.Font
        .Color = wdColorAutomatic
    End With
    ActiveDocument.Background.Fill.ForeColor.RGB = wdColorWhite
End Sub