[Gelöst] Suchen Und Ersetzen für alle Sheets

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [Gelöst] Suchen Und Ersetzen für alle Sheets

Re: Suchen Und Ersetzen| Ohne Meldung "Begriff nicht gefunde

von MikeRo » Mo, 31.01.2011 14:40

Danke, habe es gefunden und programmiert. Mit schleife für alle Sheets.

Code: Alles auswählen

Sub SuchenUndErsetzen
oDoc = thisComponent
Anzahl = oDoc.Sheets.count
	For i = 0 to Anzahl-1
		oSheet = oDoc.Sheets(i)
		oSuchen = oSheet.createReplaceDescriptor
		oSuchen2 = oSheet.createReplaceDescriptor
		oSuchen3 = oSheet.createReplaceDescriptor

			with oSuchen
			.setSearchString("Ergebnis")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		    .setReplaceString("")
			End with
			
			with oSuchen2
			.setSearchString("Ž")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		    .setReplaceString("'")
		    End with
		    
			with oSuchen3
			.setSearchString("\n")
			.SearchRegularExpression = TRUE 'Suche nach Ausdruck in diesem Fall Zeilenumbruch
		    .setReplaceString(" ")
		    End with		

	osheet.replaceAll(oSuchen)
	osheet.replaceAll(oSuchen2)
	osheet.replaceAll(oSuchen3)
	Next i
End Sub

Re: Suchen Und Ersetzen| Ohne Meldung "Begriff nicht gefunde

von komma4 » So, 30.01.2011 09:56

Verwende keinen dispatcher-Code, sondern Basic-Anweisungen.

Hier im Forum wirst Du fündig, wenn Du nach SearchDescriptor suchst.


Viel Erfolg!

[Gelöst] Suchen Und Ersetzen für alle Sheets

von MikeRo » Fr, 28.01.2011 15:33

Hier die Lösung, mit schleife für alle Sheets.

Code: Alles auswählen

Sub SuchenUndErsetzen
oDoc = thisComponent
Anzahl = oDoc.Sheets.count
	For i = 0 to Anzahl-1
		oSheet = oDoc.Sheets(i)
		oSuchen = oSheet.createReplaceDescriptor
		oSuchen2 = oSheet.createReplaceDescriptor
		oSuchen3 = oSheet.createReplaceDescriptor

			with oSuchen
			.setSearchString("Ergebnis")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		        .setReplaceString("")
			End with
			
			with oSuchen2
			.setSearchString("Ž")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		        .setReplaceString("'")
		    End with
		    
			with oSuchen3
			.setSearchString("\n")
			.SearchRegularExpression = TRUE 'Suche nach Ausdruck in diesem Fall Zeilenumbruch
		        .setReplaceString(" ")
		    End with		

	osheet.replaceAll(oSuchen)
	osheet.replaceAll(oSuchen2)
	osheet.replaceAll(oSuchen3)
	Next i
End Sub

Nach oben