Microsoft Office Forums - View Single Post - [Solved] non-DOC default format

melburn · 07-14-2020, 03:44 PM

An update on how Paul's assistance led me to a functional macro

Rather than restricting to .txt and .log changed the code for a macro I could apply to any file.

Code:

Sub LandscapeLST9()
'
' LandscapeLST9 Macro
'
Application.ScreenUpdating = False
Dim i As Long
  With ActiveDocument
        .PageSetup.Orientation = wdOrientLandscape
        .PageSetup.TopMargin = CentimetersToPoints(0.6)
        .PageSetup.BottomMargin = CentimetersToPoints(0.6)
        .PageSetup.LeftMargin = CentimetersToPoints(0.6)
        .PageSetup.RightMargin = CentimetersToPoints(0.6)
   End With

  With Selection.Font
   .Name = "Lucida Sans Typewriter"
   .Size = 9

  End With
 Application.ScreenUpdating = True

End Sub

Many thanks Paul