Suchen und Löschen per VBA
Guido Lenz
ich habe folgendes Problem:
in mehreren Dokumenten befinden sich interne Kennzeichner für Überschriften,
etc., die gelöscht werden sollen.
Die Kennzeichner beginnen jeweils mit "<F4", dann folgt ein Erläuterungstext
und dann ">" (ohne Anführungszeichen). Die Kennzeichner stehen immer am
Zeilenanfang.
Ich finde die Dinger problemlos und kann sie auch löschen, und zwar mit dem
Makro am Ende dieses Textes.
Jedoch weiß ich nicht, wie ich Word 97 SR2 mitteilen soll, wann es aufhören
soll zu suchen. Daher die InputBox Konstruktion...
Wenn ich mich dem Dokumentende nähere, mache ich einfach kleinere Schritte.
Kann jemand helfen?
Falls möglich, bitte in Kopie an guido...@navigon.de
Danke!
Guido
Hier das Makro:
Public Sub TagsEntfernen()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Anzahl Ersetzungen eingeben" ' Aufforderung festlegen.
Titel = "InputBox" ' Titel festlegen.
Voreinstellung = "50" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
For i = 1 To Wert1
With Selection.Find
.ClearFormatting
.Execute FindText:=">"
End With
' Wählen des > und der Zeichen davor
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete
Next
End Sub
Peter Haserodt
Public Sub Löschen()
Dim g As Range
For Each g In ActiveDocument.Characters
If g.Text = ">" Then
g.Select
Selection.MoveRight wdCharacter
Selection.HomeKey wdLine, Extend:=wdExtend
Selection.Delete
End If
Next g
End Sub
Guido Lenz schrieb in Nachricht <7iu0rb$gdm$1...@news00.btx.dtag.de>...
Guido Lenz
vielen Dank, das klappt super, ganz genau wie ich mir das vorgestellt habe.
Hast Du eine Empfehlung für Literatur zur Makroprogrammierung unter VBA?
Gibt es - für den Anfang - vielleicht sogar einen günstigen oder kostenlosen
Weblehrgang o. ä.?
Noch etwas würde mich hier interessieren: Geht das ganze auch, wenn die
Kennzeichner nicht zu Beginn der Zeile stehen, also ein Markieren von "<F4"
bis ">" und dann löschen der Markierung?
Gruß
Guido
Peter Haserodt <pha...@darmstadt.netsurf.de> schrieb in im Newsbeitrag:
3752...@news.omnilink.net...
Günter Wimmer
hallo Guido,
Schau gelegentlich mal auf meiner VBA - Homepage vorbei:
Dort gibt es viel zu Word - VBA. Günter
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de
Günter Wimmer
hallo Guido,
hier findest Du eine menge Infos zu VBA:
http://www.fortunecity.de/wolkenkratzer/mond/300/
http://www.vba.home.8m.com
mfg Günter