Word OLE - Zeile markieren

[Neutral General]

Hallo,

Wie kann ich per OLE/COM eine Zeile in einem Word-Dokument markieren?
Ich muss das Dokument nämlich explizit zeilenweise durchsuchen.

Kriegs grad nicht hin.

Gruß
Neutral General

[p80286]

Das geht nicht!
Wenn Zeile das ist was man landläufig darunter versteht, die Zeile im Ausdruck.
Vor allem weil sich die Zeilen abhängig vom Rand und oder Font ändern können.

Was geht ist das Absatzweise durchgehen. Im Zweifel mußt du nach den Absatzmarken suchen.

oder Du versuchst einen (ASCII) Textexport, aber das ist wohl nicht gewünscht.

Gruß
K-H

[Neutral General]

Also ich habe jetzt einen anderen Plan.

Gibts eine Art pos()-Funktion?
Müsste dann alle Absätze die mit "[*]" anfangen markieren.
Das sollte doch hoffentlich machbar sein oder?!

[Jumpy]

Ich poste so Fragen immer in irgendeinem Office-Forum in der VBA Sektion. Kriegste meist sehr schnell 'ne Lösung von Leuten, die im Word-Objektmodell mehr drin sind und brauchst die nur noch nach Delphi zu "übersetzen".

[p80286]

hier ist das zugehörige Macro:

Code:

  Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^p*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .CorrectHangulEndings = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute

das ^p* ist die Suche nach der Absatzmarke mit anschließendem *

Gruß
K-H