Auslesen von Word Überschriften im Hintergrund

[Chillkröte]

Hallo
der Titel sagt eig schon alles.
es geht lediglich um das Auslesen der Überschriften (1-6)
Hat jemand eine Idee wie ich das realisieren könnte? Makros, WordApplication?

Crosspost

[p80286]

Die Frage ist, was Du unter "Überschrift" verstehst. Für Word gibt es keine "Überschriften" sondern nur Text, der bestimmte Eigenschaften hat. (Font.....)

Gruß
K-H

[Alien426]

Zitat:

Zitat von p80286 (Beitrag 1057143)

Die Frage ist, was Du unter "Überschrift" verstehst. Für Word gibt es keine "Überschriften" sondern nur Text, der bestimmte Eigenschaften hat. (Font.....)

Er meint wahrscheinlich die Standard-Formatvorlagen, wo dann (bei Word 2000) zum Beispiel für "Überschrift 1" >Arial 16pt fett< hinterlegt ist.

Mein Vorschlag: suche im Forum nach "Word Automation", "Word COM" oder ähnlichem. Damit wird ein installiertes Word durch Delphi/dein Programm ferngesteuert.

[Chillkröte]

Zitat:

Zitat von Alien426 (Beitrag 1057156)

Er meint wahrscheinlich die Standard-Formatvorlagen, wo dann (bei Word 2000) zum Beispiel für "Überschrift 1" >Arial 16pt fett< hinterlegt ist.

Mein Vorschlag: suche im Forum nach "Word Automation", "Word COM" oder ähnlichem. Damit wird ein installiertes Word durch Delphi/dein Programm ferngesteuert.

genau die meine ich
alles klar danke, werd ich mir angucken wenn ich zeit finde

[p80286]

Hier das Makro mit dem Word sucht:

Code:

Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Überschrift 1")
    Selection.Find.ParagraphFormat.Borders.Shadow = False
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .CorrectHangulEndings = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute

Gruß
K-H