Hallo,
ich habe ein kleines VBA-Skript geschrieben, mit dem in einem Dokument gesucht wird, ob eine Zeile mit SPRACHE beginnt. Wenn ja, möchte ich die Zeile bis zum Zeilenende markieren und löschen:
Sub LNFORMAT()
Dim pos
pos = 1
Do While pos <= ActiveDocument.Words.Count
If ActiveDocument.Words(pos) = "SPRACHE" Or _
ActiveDocument.Words(pos) = "LÄNGE" Then
ActiveDocument.Words(pos).Select
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete
MsgBox "gelöscht"
End If
pos = pos + 1
Loop
MsgBox "Programm beendet"
End Sub
Leider dauert es eeewig um einen Text, der länger als eine Seite ist damit zu bearbeiten. Und es ist überhaupt nicht zuverlässig (wenn z.B. zwei Zeilen hintereinander mit SPRACHE anfangen wird nur eine Zeile gelöscht.
Kann mir irgendjemand sagen, was ich falsch mache, oder wie man das Problem einfach löst? Kann doch nicht so schwer sein...
Ich benutze Word 2003 auf Windows XP Professional.
Danke für jede Hilfe!
Die Gabi |