Nach Querseite einfügen, stimmen die Kopfzeilen nicht mehr

26/02/2009 - 16:15 von P.Belloni | Report spam
Hi

Word 2003, VBA

Ich habe ein Dokument (Vorlage), welches per Knopfdruck (VBA) ermöglichen
soll, eine Querseite einzufügen.
Nun, im Dokument habe ich ein Logo1 auf der ersten Seite (erste Seite
anders) in der Kopfzeile, auf den Folgenden das Logo2.
Wenn ich nun eine Querseite einfüge (Abschnittswechsel(Neue Seite), danach
Querseite einstellen), bringt es mir die Logos durcheinander.

Selection.InsertFile FileName:=strQuerseite, Range:="",
ConfirmConversions:=False, Link:=False, Attachment:=False

Beispiel:
Seite1, Logo1
Seite2, Logo2
Seite3, Logo2
...

Seite1, einfügen Querseite
danach ist
Seite1, Logo1
Seite2, Logo1
Seite3, Logo2
...

Geht eine Querseite einfügen auch ohne "Abschnittswechsel(Neue Seite)",
sondern zum Beispiel mit "Seitenumbruch", da Word das "Abschnittswechsel"
nicht wirklich als neue Seite ansieht, sondern als Weiterführung der
aktuellen Seite?

Gruss und Dank
 

Lesen sie die antworten

#1 P.Belloni
26/02/2009 - 16:56 | Warnen spam
Word 2003, VBA
Ich habe ein Dokument (Vorlage), welches per Knopfdruck (VBA) ermöglichen
soll, eine Querseite einzufügen.
Nun, im Dokument habe ich ein Logo1 auf der ersten Seite (erste Seite
anders) in der Kopfzeile, auf den Folgenden das Logo2.
Wenn ich nun eine Querseite einfüge (Abschnittswechsel(Neue Seite), danach
Querseite einstellen), bringt es mir die Logos durcheinander.

Selection.InsertFile FileName:=strQuerseite, Range:="",
ConfirmConversions:=False, Link:=False, Attachment:=False

Beispiel:
Seite1, Logo1
Seite2, Logo2
Seite3, Logo2
...

Seite1, einfügen Querseite
danach ist
Seite1, Logo1
Seite2, Logo1
Seite3, Logo2
...

Geht eine Querseite einfügen auch ohne "Abschnittswechsel(Neue Seite)",
sondern zum Beispiel mit "Seitenumbruch", da Word das "Abschnittswechsel"
nicht wirklich als neue Seite ansieht, sondern als Weiterführung der
aktuellen Seite?

Gruss und Dank



Hab was hinbekommen, gehts noch besser?

Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientLandscape
.SectionStart = wdSectionNewPage
.DifferentFirstPageHeaderFooter = False
End With
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientPortrait
.DifferentFirstPageHeaderFooter = False
End With

Ähnliche fragen