Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Makro um zeile mit bestimmten Wörtern zu löschen

304 views
Skip to first unread message

Thomas Eder

unread,
Jul 10, 2000, 3:00:00 AM7/10/00
to
Hallo VBA-Spezialisten,

leider bin ich noch ganz zu Anfang meiner VBA-Kenntnisse. Ich brauche
ein Makro, das mir in bestimmten Zeilen, in denen eine Wortkombination
"ABC" vorkommt, komplett löscht und durch eine andere Wortkombination
"DEF" ersetzt. Mit den aufgezeichneten "Suchen-und-Ersetzen"-Makros geht
das so nicht, da die zu löschenden bzw. ersetzenden Zeilen noch weitere,
unbekannte Wörter enthalten können.
Kann mir jemand weiterhelfen?

Vielen Dank im Voraus!

Thomas Eder


Thomas Löwe [MS MVP Word]

unread,
Jul 10, 2000, 3:00:00 AM7/10/00
to

Followup-To: microsoft.public.de.word.vba

Thomas Eder" <postm...@eder-ip.de>
news:3969FF28...@eder-ip.de...

Guido Lenz

unread,
Jul 11, 2000, 3:00:00 AM7/11/00
to
Sub ABC()
'
' ABC Makro
' Makro aufgezeichnet am 11.07.00 von Guido Lenz
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ABC"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.TypeText Text:="DEF"
End Sub

Fertig! Mit automatischer Aufzeichnung!

Fehlt noch eine Schleife bis zum Ende...
Suche nach, dann Pos1, dann Umschalt+Ende, dann Ersatztext "DEF"

Guido

--

"Thomas Eder" schrieb:

Thomas Eder

unread,
Jul 13, 2000, 3:00:00 AM7/13/00
to
vielen Dank!!

Thomas

Guido Lenz schrieb:

0 new messages