Dim WO as Objekt
Set oword = CreateObject("Word.Application.9")

With oword.ActiveDocument.PageSetup
    .Orientation = wdOrientLandscape
    .TopMargin = CentimetersToPoints(2.5)
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
      .OddAndEvenPagesHeaderFooter = False
    .VerticalAlignment = wdAlignVerticalTop
    .GutterPos = wdGutterPosLeft
End With

With oword
    .Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints( _
      2.75), _
         Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
End With