imageI love Writeroom on apple mac. It’s plain and easy to use and boost my cretivity when I wrote novels and poetry. Sometimes I had to use also MS Word and was looking form a similiar app. There’ s no.

So I wrote this little Macro that turns look and feel  MS WORD documents  into a Writeroom like version .

Paste the snippet into the macro editor, add a button on MS Word toolbar and enter in your write room

  

 

       ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
        ActiveDocument.Background.Fill.Visible = msoTrue
        ActiveDocument.Background.Fill.Solid
        ActiveDocument.Select

    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(3)
        .BottomMargin = CentimetersToPoints(3)
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    With ActiveDocument.Content.Find
    .ClearFormatting
    .ParagraphFormat.Space15
    .ParagraphFormat.LeftIndent = CentimetersToPoints(2.86)
    .ParagraphFormat.RightIndent = CentimetersToPoints(2.86)
     .ParagraphFormat.SpaceBeforeAuto = False
        .ParagraphFormat.SpaceAfterAuto = False
End With
    With Selection.Font
        .Name = "Trebuchet MS"
        .Size = 14
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = 6864106
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
     If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    ActiveWindow.View.Type = wdWebView
    ActiveWindow.View.fullscreen = Not ActiveWindow.View.fullscreen
End Sub