Thema Datum  Von Nutzer Rating
Antwort
Rot Word Auswertung komplette Zeilen anhand einer frei wählbaren Variable löschen
17.06.2019 13:17:47 Mirko
NotSolved
17.06.2019 15:46:16 Gast15441
NotSolved
17.06.2019 16:31:19 Gast63912
NotSolved
17.06.2019 17:19:32 Gast15441
Solved
18.06.2019 13:14:17 Gast31610
NotSolved

Ansicht des Beitrags:
Von:
Mirko
Datum:
17.06.2019 13:17:47
Views:
1056
Rating: Antwort:
  Ja
Thema:
Word Auswertung komplette Zeilen anhand einer frei wählbaren Variable löschen

Hallo zusammen

Ich möchte in einem Word-Dokument jede Zeile abfragen ob die eine oder andere Variable drin ist und diese Zeile bei einem Treffer komplett löschen. Ein Export dieser Datei in ein Excel statt einem Word geht leider nicht.

 

Ich habe es zwar geschafft mit einem aufgezeichneten Makro dass ich einzelne Zeilen löschen konnte, aber der Loop bis ans Ende des Dokumentes bring ich irgendwie nicht hin. Wenn ich mehrere Male hintereinander 

Selection.Rows.Delete

 

ins Makro nehme dann löscht es mehrere Einträge, aber ich möchte das einfach als "Loop" bis ans Dokumentende durchlaufen lassen, hat mir da jemand einen Tip? Habe schon einige Stunden mit googlen verbracht, aber irgendwie  drehe ich mich im Kreis. Am Erfolgversprechensten war dieser Script:

 

Public Sub Löschen()
Dim g As Range
 
For Each g In ActiveDocument.Characters
If g.Text = "Admin " Then
g.Select
Selection.MoveRight wdCharacter
Selection.HomeKey wdLine, Extend:=wdExtend
Selection.Delete
End If
Next g
End Sub

Es soll einfach jede Zeile in der Admin + Leerschlag steht gelöscht werden, aber er macht gar nix.

Danke für eure Unterstützung.

Grüsse aus der Schweiz

 

Mirko


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 Auswertung komplette Zeilen anhand einer frei wählbaren Variable löschen
17.06.2019 13:17:47 Mirko
NotSolved
17.06.2019 15:46:16 Gast15441
NotSolved
17.06.2019 16:31:19 Gast63912
NotSolved
17.06.2019 17:19:32 Gast15441
Solved
18.06.2019 13:14:17 Gast31610
NotSolved