Hello Experts,

I have recorded a macro to:
1. change pager orientation to landscape
2. change page margins to narrow
3. change font size to 8

What i got is:
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = InchesToPoints(0.5)
        .BottomMargin = InchesToPoints(0.5)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(8.5)
        .PageHeight = InchesToPoints(11)
        .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
    WordBasic.TogglePortrait Tab:=3, PaperSize:=0, TopMargin:="0.5", _
        BottomMargin:="0.5", LeftMargin:="0.5", RightMargin:="0.5", Gutter:="0", _
        PageWidth:="11", PageHeight:="8.5", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
        HeaderDistance:="0.5", FooterDistance:="0.5", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        StartingNum:=1, FromText:=wdAutoPosition, CountBy:=0, NumMode:=0, _
        TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=49, LinesPage:= _
        40, CharPitch:=220, LinePitch:=360, DocFontName:="+Body", DocFontSize:=11 _
        , PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, SectionType:=1, _
        FolioPrint:=0, ReverseFolio:=0, FolioPages:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.WholeStory
    Selection.Font.Size = 8
Can someone please help me to make this look cleaner and more understandable? I am using word 2007.