OpenOffice.info

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[

Code: Alles auswählen

sub mann_frau

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