Thema Datum  Von Nutzer Rating
Antwort
Rot Word: bestimmte Zeilen löschen
 16.09.2008 17:52:28 Gabi
NotSolved
17.09.2008 09:50:50 Holger
NotSolved

Ansicht des Beitrags:
Von:
Gabi		 Datum:
16.09.2008 17:52:28		 Views:
3603		 Rating:
     
Antwort:
  Ja
Thema:
Word: bestimmte Zeilen löschen
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word: bestimmte Zeilen löschen
 16.09.2008 17:52:28 Gabi
NotSolved
17.09.2008 09:50:50 Holger
NotSolved