Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge

Verfolgung starten Optionen

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

haribo11 / 4 Antworten / Baumansicht 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
haribo11 Edgar Rau „Sub Makro1 With ActiveSheet.PageSetup .PrintTitleRows .PrintTitleColumns End...“
Optionen

Also nach der Zeile, wo ich das Winword-Dokument öffne?

Oder ist das ein Makro, das in ich Winword aufrufen muss? Ich wollte das ja alles in 1 Makro aus Excel aufrufen.
Die Datei ist auf Arbeit, deswegen kann ich es erst Montag testen.

Wenns klapt, Dankeschön,
Sebastian

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

Das ist ein Makro in VBA, also auch für Excel. Du kannst es in Deinem Makro einfügen (Excel) oder dort einen Befehl eingeben, das dieses Makro ausführt. Ob das geänderte Format (Querformat) dann auch in Word übernommen wird, kann ich nicht sagen.

Einfach 'mal probieren oder warten, ob sich nicht noch ein Experte meldet.

Viel Erfolg


Edgar

Wer brauchen ohne zu gebraucht, braucht brauchen gar nicht zu gebrauchen
bei Antwort benachrichtigen
Bäuerle haribo11 „Excel97 -> Makro -> Winword; Querformat???“
Optionen

hallo Sebastian,
wenn Du Word(2000) öffnest, dann einfach:

Privat Sub Document_Open()
With ActiveDocument.PageSetup
.Orientation = wdOrientLandscape
End With
End Sub

vielleicht hilfts
gruß von Bäuerle

bei Antwort benachrichtigen