none
Word-Gliederungsebenen per Code durchlaufen RRS feed

  • Frage

  • Hallo

    welche Schnittstellen/Klassen des Word-Objektmodells benötige ich,
    um die Gliederungsebenen eines Word-Dokument zu lesenb (Word 2003, kein docx)?

    Konkret möchte ich die Tabelleninhalte eines bestimmten Bereichs,
    sagen wir mal Gliederungsebenen 4.1.3 bis 5.6.7.9 in anderes Dokument
    kopieren.

    Mit welchen VBA-Objekten wird die Gliederung dargestellt?

    MfG,
    Christoph

    Dienstag, 16. November 2010 15:45

Antworten

  • Hallo Christoph,

    ich versteh grad nicht den Zusammenhang zwischen Tabelle und Gliederungebene.

    Wenn du nur bestimmte Tabellen ansprechen möchtest, greifst du über das Table-Objekt (For each-Anweisung) auf jede Tabelle zu und prüfst das Kapitel, in der die Tabelle steht:

    Sub TableInformation()
    Dim tbl As Table
    Dim rng As Range
    For Each tbl In Activedocument.Tables
     Set rng=tbl.Range
     rng.Select
     set rng=Selection.Bookmarks("\HeadingLevel").Range
     With rng.Paragraphs(1).Range.ListFormat
     Msgbox .Liststring,vbInformation, .ListLevelNumber
     End With
    Next tbl
    End Sub
    Hoffe das bringt dich weiter.
    Gruß Christian
    Mittwoch, 17. November 2010 11:00