---

Hallo Zusammen,

ich bin leider nicht fit in VBA und bitte um Eure Hilfe:

Gesucht werden in einem Dokument (es sind viele...) alle Absätze mit einer Zahl an der ersten Stelle. Diese Absätze sollen ein neues Format zugewiesen bekommen.

Ich habe begonnen ein Makro aufzuzeichnen:
Eine Zeile runter und den Absatz markieren.
Jetzt sollte der Test für den ganz linken Charakter kommen.
Aber mit meinen Steinzeit-Basic-Kenntnissen (left(var$,1) u.ä.) komme ich hier nicht mehr weiter...

Code:

---

Sub Nummer_wird_Überschrift()
'
' Nummer_wird_Überschrift Makro
' Makro aufgezeichnet am 28.12.2009 von Heiko Englert
'
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
   
    ????

    Selection.Style = ActiveDocument.Styles("ZTV-Überschrift")
End Sub

---

Kann mir jemand einen Tipp geben ?

------------------
Gruß
Heiko

"Es gibt kein richtiges Leben im falschen." - Theodor W. Adorno in Minima Moralia, 43
und das hat er gesagt lange bevor es SL, WOW, ETC gab !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also mit Netzes Hilfe und Try'n'Error hab' ich jetzt diesen funktionierenden Code gezimmert:

Code:

---

    Dim AbsNr As String
    Dim Testzeile As String
    AbsNr = "0"
    Do While AbsNr <> "9"
        Selection.MoveDown Unit:=wdParagraph, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Testzeile = Selection.Range
        If IsNumeric(Left(Testzeile, 1)) = True Then Selection.Style = ActiveDocument.Styles("ZTV-Überschrift")
        AbsNr = Left(Testzeile, 1)
    Loop

---

Da gäbe es sicher noch viel zu verbessern
- aber mir tut's des...

------------------
Gruß
Heiko

"Es gibt kein richtiges Leben im falschen." - Theodor W. Adorno in Minima Moralia, 43
und das hat er gesagt lange bevor es SL, WOW, ETC gab !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP