Seite 1 von 1
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: So, 11.01.2009 18:48
von yeti
Und wie soll die Maschine unterscheiden ob Peter ein männlicher Name oder ein weiblicher ist?
Das wird nicht gehen...
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: So, 11.01.2009 18:55
von yeti
Gast hat geschrieben:Wieso soll das nicht gehen?
Das Makro soll nach "Peter" suchen, peter durch "Marie" ersetzen und dann im selben Satz alle "er"s durch "sie"s ersetzen.
Ach sooo... klar
Ich hab mich auf das männlich und weiblich eingeschossen und leider zu schnell geantwortet.
Gruß D!
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: So, 11.01.2009 19:30
von turtle47
Hallo Christopher,
in meiner Makro-Grabbelkiste hatte ich noch sowas ähnliches und habe das mal entsprechend angepasst.
Das Makro arbeitet aber den ganzen Text ab.
christopherstark- hat geschrieben:also zwischen zwei Punkten oder zwischen Absatzanfang und nächstem Punkt
Müsste noch angepasst werden.
Code: Alles auswählen
Sub Search_and_replace
Dim oGefunden, oTextdocument, oSuche as Object
oTextdocument= thisComponent
sSearch() = Array ("Marie","Sie","sie","Ihr","ihr","Ihre")'Your Searchkeys
sReplace() = Array ("Peter","Er","er","Sein","sein","Seine")'Your Replacechkeys
oSuche = oTextdocument.createSearchDescriptor
for i = 0 to uBound(sSearch)
With oSuche
.searchString = sSearch(i)
.searchWords = true
.searchcaseSensitive= true
end With
oGefunden = oTextdocument.findFirst(oSuche)
do While Not isNull (oGefunden)
oGefunden.String = sReplace(i)
oGefunden =oTextdocument.findNext(oGefunden.end, oSuche)
loop
next i
End Sub
Jürgen
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: Mo, 12.01.2009 10:49
von turtle47
Hallo Zusammen,
Sanne hat geschrieben:Ich würde mal vermuten, eine dieser zwei Zeilen ist überflüssig:[/q[ote]
Sanne, da Du hast vollkommen Recht mit Deiner Aussage.
Ausserdem wird der abgeänderte Code so nicht laufen weil unten ein wesentlicher Teil entfernt wurde.
Schöne Grüsse.
Jürgen
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: Di, 13.01.2009 00:08
von turtle47
Ich nehme an, Du hast das Makro vorher auf eine Schaltfläche oder Tastenkombi gelegt und die Makrostartzeile wird jetzt nicht gefunden.
Aber wer lesen kann ist klar im Vorteil, weil:
Sanne hat geschrieben:eine dieser zwei Zeilen ist überflüssig
Also lasse die Zeile
stehen dann sollte das Ganze funktionieren, gelle.
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: Mo, 19.01.2009 12:36
von Arran
Guten Tag
Und was müsste ich machen, wenn ich das auf andere Namen anwenden möchte? Könnte man zuerst einen Ausgangs- und dann einen Ziel-Namen abfragen?
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: Mo, 19.01.2009 13:05
von turtle47
Hallo Arran,
meinst Du so?
Code: Alles auswählen
Sub Search_and_replace
Dim oGefunden, oTextdocument, oSuche as Object
Dim Q1, Q2 as string
oTextdocument= thisComponent
Q1 = inputbox ("Bitte den Suchbegriff eingeben" ,"Suchen")
Q2 = inputbox ("Bitte den ersetzenden Begriff eingeben" ,"Ersetzen")
sSearch() = Array (Q1,"Er","er","Sein","sein","Seine")'Your Searchkeys
sReplace() = Array (Q2,"Sie","sie","Ihr","ihr","Ihre")'Your Replacechkeys
if Q1 = "" or Q2 = "" Then
msgbox "Fehlerhafte oder keine Eigabe!" , 48 , "Ausführung angehalten"
exit Sub
end if
oSuche = oTextdocument.createSearchDescriptor
for i = 0 to uBound(sSearch)
With oSuche
.searchString = sSearch(i)
.searchWords = true
.searchcaseSensitive= true
end With
oGefunden = oTextdocument.findFirst(oSuche)
do While Not isNull (oGefunden)
oGefunden.String = sReplace(i)
oGefunden =oTextdocument.findNext(oGefunden.end, oSuche)
loop
next i
End Sub[
Jürgen
Re: In Text Charakter von männlich auf weiblich ändern?
Verfasst: Mo, 19.01.2009 16:42
von Arran
Genau, so habe ich mir das vorgestellt.
Vielen Dank