Sub WriteRoomForWord()
' WriteRoom for Word by Dan Rahmel
'
    If ActiveDocument.Styles("Normal").Font.Color = wdColorAutomatic Then
        With ActiveDocument.Styles("Normal").Font
		.Color = wdColorBrightGreen
		.Name = "Courier New"
		.Bold = True
	End With
        ActiveWindow.View.Type = wdWebView
        ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
        ActiveDocument.Background.Fill.Visible = msoTrue
        ActiveDocument.Background.Fill.Solid
        ActiveWindow.View.FullScreen = True

	' Change this value if you have a wider screen
    	ActiveDocument.Styles("Normal").ParagraphFormat.RightIndent = InchesToPoints(4)

    Else
        With ActiveDocument.Styles("Normal").Font
		.Color = wdColorAutomatic
		.Name = "Times New Roman"
		.Bold = False
	End With
	ActiveWindow.View.Type = wdNormalView
        ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
        ActiveDocument.Background.Fill.Visible = msoTrue
        ActiveDocument.Background.Fill.Solid
        ActiveWindow.View.FullScreen = False
    	ActiveDocument.Styles("Normal").ParagraphFormat.RightIndent = 0

    End If
End Sub