Hallo allerseits,
ich habe folgendes Problem:
Ich fülle per Office-Automation eine Vorlage mit Bookmarks.
Die Vorlage hat 2 Abschnitte. Der 1. Abschnitt hat 2 Kopfzeilen (1. Seite und folgende), der 2. Abschnitt hat eine Kopfzeile. Nun kann es sein, dass es keinen Anhang gibt und der 2. Abschnitt wegfallen muss.
Löscht man einfach den letzten Abschnitt, so wird die letzte Kopfzeile für das ganze Dokument übernommen (wer hat sich das bloss ausgedacht?!)
Deshalb muss die letzte Kopfzeile auf 'Wie vorherige' gesetzt werden.
Das versuche ich folgenermassen (die leere Section beinhaltet nur eine Zeilenschaltung):
Beim Debuggen sieht man, dass aSection.Headers.Count = 3 ist, was eigentlich der Anzahl aller Header im Dokument entsprechen müsste.
Bei Header Nr 1 wirft Word auch den Fehler 'Dieser Befehl ist nicht verfügbar' aus. Setze ich explizit den Header 2 oder 3 ein, so scheint sich nichts zu verändern (Es kommt aber auch kein Fehler).
Wie kann ich erreichen, dass die 2. Kopfzeile für den 2. Abschnitt übernommen wird, so dass ich den Abschnitt löschen kann?
ich habe folgendes Problem:
Ich fülle per Office-Automation eine Vorlage mit Bookmarks.
Die Vorlage hat 2 Abschnitte. Der 1. Abschnitt hat 2 Kopfzeilen (1. Seite und folgende), der 2. Abschnitt hat eine Kopfzeile. Nun kann es sein, dass es keinen Anhang gibt und der 2. Abschnitt wegfallen muss.
Löscht man einfach den letzten Abschnitt, so wird die letzte Kopfzeile für das ganze Dokument übernommen (wer hat sich das bloss ausgedacht?!)
Deshalb muss die letzte Kopfzeile auf 'Wie vorherige' gesetzt werden.
Das versuche ich folgenermassen (die leere Section beinhaltet nur eine Zeilenschaltung):
Code:
for i := 1 to m_Document.Sections.Count do begin aSection := m_Document.Sections.Item(i); if aSection.Range.Text = #13 then begin for j := 1 to aSection.Headers.Count do aSection.Headers.Item(j).LinkToPrevious := TRUE; for j := 1 to aSection.Footers.Count do aSection.Footers.Item(j).LinkToPrevious := TRUE; bEmptySection := TRUE; end; end;
Bei Header Nr 1 wirft Word auch den Fehler 'Dieser Befehl ist nicht verfügbar' aus. Setze ich explizit den Header 2 oder 3 ein, so scheint sich nichts zu verändern (Es kommt aber auch kein Fehler).
Wie kann ich erreichen, dass die 2. Kopfzeile für den 2. Abschnitt übernommen wird, so dass ich den Abschnitt löschen kann?