In Text Charakter von männlich auf weiblich ändern?

[yeti]

Und wie soll die Maschine unterscheiden ob Peter ein männlicher Name oder ein weiblicher ist?

Das wird nicht gehen...

[yeti]

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!

[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.

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

[turtle47]

Hallo Zusammen,

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

[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:

eine dieser zwei Zeilen ist überflüssig

Also lasse die Zeile

Code: Alles auswählen

sub mann_frau

stehen dann sollte das Ganze funktionieren, gelle.

[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?

[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

[Arran]

Genau, so habe ich mir das vorgestellt.

Vielen Dank