Hallo Robert,
Am 18.12.2011 20:59, schrieb Robert Großkopf:
gehe einmal dem folgenden Link nach:
http://www.starbasicfaq.de/WiekannmaninCalc-Dokumentensuchenunderse.html#Zweig225
Ja. Das war ein wichtiger Hinweis. In Calc verhält sich die Suchfunktion
anders als in Writer.
Der unten stehende Quellcode führt dazu, dass "Musterwort" gefunden wird
und die Schrift in der Zelle ausgetauscht wird, die das Wort
"Musterwort" enthält. Dies ist natürlich nicht das Ziel.
Wenn ich die Schleife remme - also von "Do " bis "Loop" passiert nichts,
d.h. es fehlt jetzt nur noch, dass die Zelle aktiviert wird.
Hat das jemand einen Tipp?
Gruß
Jochen
sub Suchen_Ersetzen()
oSheet =ThisComponent.sheets(0)
Dim vDescriptor
Dim vFound
vDescriptor = oSheet.createSearchDescriptor()
REM Set the text for which to search and other
REM
http://api.openoffice.org/docs/common/ref/com/sun/star/util/SearchDescriptor.html
With vDescriptor
.SearchString = "Musterwort"
msgBox .SearchString
.SearchWords = false
.SearchCaseSensitive = false
.SearchBackwards = false
End With
REM Find the first one, or last one as it were!
vFound = oSheet.findFirst(vDescriptor)
Do While Not IsNull(vFound)
if not IsEmpty(vFound.CharFontName) then
if vFound.CharFontName = "Times New Roman" then
vFound.CharFontName = "Symbol"
endif
endif
vFound = oSheet.findNext( vFound.getEnd(), vDescriptor)
Loop
End Sub
--
Informationen zum Abmelden: E-Mail an [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
