VBA - Überschriften des Dokuments ermitteln

06/11/2008 - 10:36 von Georg Matejka | Report spam
Hallo,
ich suche eine Funktion, mit der ich alle Überschriften (MIT eventueller
Nummerierung) des aktuellen Dokuments in ein Datenfeld übertragen kann.

Ich möchte die so aufrufen:
Dim s() As String()
s=GetTitles()

Die Variable s soll nach dem Aufruf folgenden Inhalt haben:
s(0)="1. Erstes Kapitel"
s(1)="1.1 Einführung"
s(2)="1.1.1 ...
s(3)="2. Zweites Kapitel"
...

Das Word-Dokument ist die Dokumentation einer Access-Datenbank (die ich
eigentlich programmiere), von der aus ich auf die Überschriften zugreifen
möchte.

Bin für alle Vorschlàge dankbar,
Georg
 

Lesen sie die antworten

#1 Robert M. Franz (RMF)
06/11/2008 - 12:41 | Warnen spam
Hallo Georg

Georg Matejka wrote:
ich suche eine Funktion, mit der ich alle Überschriften (MIT eventueller
Nummerierung) des aktuellen Dokuments in ein Datenfeld übertragen kann.



so eine eingebaute Funktion gibt es im Prinzip schon: ein TOC-Feld.


Ich möchte die so aufrufen:
Dim s() As String()


[..]

Fragen zu VBA besprichst Du besser mit den ExpertInnen in der
.vba-Gruppe. Vermutlich ist der schnellste Weg zu so was, wirklich ein
TOC-Feld in das Dokument (oder in ein anderes, welches auf das erste per
RD-Feld verweist) zu setzen, zu aktualisieren, in normalen Text
umzuwandeln und dann Absatz-weise zu parsen.

Gruss
Robert
/"\ ASCII Ribbon Campaign | MSFT |
\ / | MVP | Scientific Reports
X Against HTML | for | with Word?
/ \ in e-mail & news | Word | http://www.masteringword.eu/

Ähnliche fragen