Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

Excel97 -> Makro -> Winword; Querformat???

haribo11 / 4 Antworten / Flachansicht Nickles

Hallo!
Ich sitze nun seit 1 Woche schon an nem Excel-Makro. Darin werden aus einer Excel-Tabelle mehrere sortierte Tabellen, wobei dann jede als Winword *.doc Datei abgespeichert wird. Das klapt ja nun alles endlich. Nun schaffe ich es aber nicht, das die zu erstellenden Word-Dateien im Querformat (zwecks späteren druckens) erstellt werden. Ich hab mal irgendwas über ne Kamera-Eigenschaft gelesen, aber das nicht verstanden.
Kennt jemand nen Visual-Basic Befehl, um aus Excel 97 heraus das Winwordseitenformat zu ändern?

Danke,
Sebastian

bei Antwort benachrichtigen
Edgar Rau haribo11 „Excel97 -> Makro -> Winword; Querformat???“
Optionen

Sub Makro1()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 360
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub


Hi,

wenn Du dieses Makro startest, wird das aktuelle Tabellenblatt im Querformat dargestellt. Ich hoffe, ich konnte Dir helfen.

Gruß Edgar

Wer brauchen ohne zu gebraucht, braucht brauchen gar nicht zu gebrauchen
bei Antwort benachrichtigen
Also nach der Zeile, wo ich das Winword-Dokument öffne? Oder ist das ein ... haribo11
Das ist ein Makro in VBA, also auch für Excel. Du kannst es in Deinem Makro ... Edgar Rau
hallo Sebastian, wenn Du Word 2000 öffnest, dann einfach: Privat Sub ... Bäuerle