Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Page orientation herausfinden
zurück: Makro für Namensänderung von Tabellenblättern weiter: Verknüpfungen vom Typ "MS Word" aufheben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Silberchen
Hat manchmal das Gefühl gar nichts zu können


Verfasst am:
06. Okt 2009, 15:28
Rufname:

Page orientation herausfinden - Page orientation herausfinden

Nach oben
       Version: Office 2003

Hallo,

um Kopf- und Fußzeilen richtig zu setzen (bzw. die richtige auszuwählen) muss ich wissen, ob ein Abschnitt in Hoch- oder Querformat ist.
Ich versuche es mit folgendem Code rauszufinden:

Code:
Sub KopfFuss()

Dim Kber As Range
Dim Fber As Range
Dim i

   For i = 1 To ActiveDocument.Sections.Count

    Set Kber = ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
    Set Fber = ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).Range

    Kber.Delete
    Fber.Delete
   
    With ActiveDocument.AttachedTemplate
    If ActiveDocument.PageSetup.Orientation = wdOrientPortrait Then
            .AutoTextEntries("kopf").Insert Where:=Kber.Paragraphs.Last.Range, RichText:=True
            .AutoTextEntries("fuss").Insert Where:=Fber.Paragraphs.Last.Range, RichText:=True
    Else
            .AutoTextEntries("kopfq").Insert Where:=Kber.Paragraphs.Last.Range, RichText:=True
            .AutoTextEntries("fussq").Insert Where:=Fber.Paragraphs.Last.Range, RichText:=True
    End If
    End With
   
    Next i

End Sub


Geht sicher eleganter, und da bin ich für jeden Hinweis offen, aber mein Problem ist ein anderes:
Die ActiveDocument.PageSetup.Orientation ist immer 9999999.
Wo liegt das Problem?

Vielen Dank schon im Voraus an alle, die sich Gedanken machen...
Silberchen
Hubert_R
Gast


Verfasst am:
06. Okt 2009, 18:22
Rufname:


AW: Page orientation herausfinden - AW: Page orientation herausfinden

Nach oben
       Version: Office 2003

Hi Silberchen,

bei mir zeigt ...

MsgBox ActiveDocument.PageSetup.Orientation
Null (0) = Hochformat
Eins (1) = Querformat

... an.

Grüsse Hubert
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
06. Okt 2009, 18:33
Rufname:
Wohnort: Leipzig

AW: Page orientation herausfinden - AW: Page orientation herausfinden

Nach oben
       Version: Office 2003

Hallo Silberchen,

die PageOrientation wird für jeden Abschnitt (Section) festgelegt. Das muss in Deiner Schleife berücksichtigt werden, also etwa so:
Code:
'...
With ActiveDocument.AttachedTemplate
    If ActiveDocument.Sections(i).PageSetup.Orientation = wdOrientPortrait Then
'...

@Hubert: Das klappt bei Dir zufällig, weil Du im Testdokument vermutlich nur einen Abschnitt hast. Werden es mehr, muss der Abschnitt explizit angegeben werden.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Silberchen
Hat manchmal das Gefühl gar nichts zu können


Verfasst am:
07. Okt 2009, 12:28
Rufname:


AW: Page orientation herausfinden - AW: Page orientation herausfinden

Nach oben
       Version: Office 2003

Hallo Lisa,

eigentlich ganz logisch Wink
Vielen Dank für die Hilfe.

Auch Dir, Hubert, Danke für Deine Überlegungen

Liebe Grüße
Silberchen
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word VBA Programmierung (Makros): Herausfinden, ob man im Kommentarfenster ist 15 halweg 152 25. März 2014, 14:25
halweg Herausfinden, ob man im Kommentarfenster ist
Keine neuen Beiträge Word Formate: Im Zitat Page in Seite ändern 3 frankfurter 1411 02. Mai 2012, 14:53
frankfurter Im Zitat Page in Seite ändern
Keine neuen Beiträge Word Gestaltungselemente: dpi Angabe von einem Bild in einer Word-Datei herausfinden 2 dalwik 1801 27. Apr 2012, 13:00
G.O.Tuhls dpi Angabe von einem Bild in einer Word-Datei herausfinden
Keine neuen Beiträge Word Gestaltungselemente: StyleRef, page: bedingte Kopfzeile bei Kapitelanfang 1 Wind Reaper 566 24. Feb 2012, 08:29
MarkMH_K StyleRef, page: bedingte Kopfzeile bei Kapitelanfang
Keine neuen Beiträge Word Hilfe: Seitenzahlen werden vom Worddokument nicht gedruckt {PAGE} 1 Gast 2072 31. Mai 2011, 10:42
G.O.Tuhls Seitenzahlen werden vom Worddokument nicht gedruckt {PAGE}
Keine neuen Beiträge Word VBA Programmierung (Makros): ID von Tabellen herausfinden 4 ultimate-hunteR 710 20. März 2011, 17:01
Gast ID von Tabellen herausfinden
Keine neuen Beiträge Word VBA Programmierung (Makros): Bildnummer herausfinden. 23 Zeophra 3261 25. Jun 2010, 14:15
NIGARA Bildnummer herausfinden.
Keine neuen Beiträge Word VBA Programmierung (Makros): Quer-/Hochformat herausfinden 3 Bookmarker 1101 01. Jun 2010, 14:38
MarcSLK-Gast Quer-/Hochformat herausfinden
Keine neuen Beiträge Word VBA Programmierung (Makros): einzelne Page einer Multipage disablen 2 dappes 696 28. Nov 2008, 13:59
dappes einzelne Page einer Multipage disablen
Keine neuen Beiträge Word VBA Programmierung (Makros): Page Break beim Einfügen mehrerer Worddokumente in ein neues 2 Hanka 1376 28. Jul 2008, 14:29
Hanka Page Break beim Einfügen mehrerer Worddokumente in ein neues
Keine neuen Beiträge Word VBA Programmierung (Makros): nach dem Feld "{ PAGE }" suchen 38 CJ 2397 07. Jul 2008, 13:12
CJ nach dem Feld "{ PAGE }" suchen
Keine neuen Beiträge Word VBA Programmierung (Makros): Multipage - Page dynamisch aber LAbel nicht einfügbar 2 i++ 2522 17. Apr 2008, 10:55
Takenhoe Multipage - Page dynamisch aber LAbel nicht einfügbar
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum