hallo,
habe einen großen WORD-text mit vielen zitaten.
möchte die zitate, die mit den zeichen „“ hervorgehoben
bzw. eingerahmt sind, alle automatisch ersetzen lassen.
beispiel:
„fasiqwbnewqi eqwhjqehqw ewqhqehnbeq“
soll durch NICHTS ersetzt werden.
wie kann man das machen?
natürlich kommen auch andere zitate vor - hundertfach…
will nicht allein die anführungszeichen löschen, sondern
auch das sich darin befindliche zitat.
geht das automatisch?
regular expressions?
danke!
gruß
sabine
habe einen großen WORD-text mit vielen zitaten.
möchte die zitate, die mit den zeichen „“ hervorgehoben
bzw. eingerahmt sind, alle automatisch ersetzen lassen.
Hi Sabine,
Alt+F11, links einen Doppelklick auf „Normal“, oben Einfügen–Modul, dortrein den Code kopieren, dann entweder
a) in den Code stellen und F5 drücken, Editor schließen.
b) Editor schließen, in Word Extras-Makros-Makros das Makro „Loeschen“ ausführen.
das Ganze vorher erst an einer Dokumentkopie testen.
Option Explicit
'
Sub Loeschen()
Dim Wort As Long, W As Long
With ActiveDocument.Words
For Wort = .Count - 1 To 2 Step -1
If Asc(Left(.Item(Wort - 1), 1)) = 132 And Asc(Left(.Item(Wort + 1), 1)) = 147 Then
For W = Wort + 1 To Wort - 1 Step -1
.Item(W).Delete
Next W
End If
Next Wort
End With
End Sub
Gruß
Reinhard
Hallo,
habe einen großen WORD-text mit vielen zitaten.
möchte die zitate, die mit den zeichen „“ hervorgehoben
bzw. eingerahmt sind, alle automatisch ersetzen lassen.
Wenn du im Ersetzen-Dialog unter „erweitert“ „Platzhalter verwenden“ aktivierst, kannst du mit „*“ nach allen deinen Zitaten suchen und sie durch was immer du willst - auch durch nichts - ersetzen lassen.
Cheers, Felix
Danke, Felix!
Funktioniert.
Grüße,
Sabine
Reinhard, danke für das Programm.
Bei mir funktioniert es leider nicht - nur ein paar Textstellen werden verändert,
jedoch nicht alle.
Gruß
Sabine
Bei mir funktioniert es leider nicht - nur ein paar
Textstellen werden verändert,
jedoch nicht alle.
Hi Sabine,
okay, ich hatte es nur an kurzem Beispieltext getestet, da ging es.
Wenn du noch Interesse an einer Vba-Lösung hast, so schicke mir mal einen ggfs. anonymisierten Beispieltext wo es nicht funktioniert.
Hochladen kannst du die doc per FAQ:2861
Und wenn du anonymiserst, mach dir keinen großen Kopp um den Text, für das Problem ist
sakjbkjajhg kglghlfd ljgg „fffölfl“ lfjdjfdjk „fklfkdj“
gleichwertig mit
Claudia Schiffer, „Telefon“ 4711 „Hamburg“ 
Hauptsache mögliche Problematiken wie Zeilenumbtüche usw. bleiben erhalten.
Gruß
Reinhard