Hallo *, bei dem unten aufgeführten Quellcode besteht folgendes Problem:"Variable = oDoc.createSearchDescriptor()" ruft einen BASIC-Laufzeitfehler hervor ("Eigenschaft oder Methode nicht gefunden"). In der Tat ist im Xray-Tool keine Eigenschaft oder Methode "SearchDescriptor" aufgeführt. Allerdings hat Ptonyak in einem Makro (http://www.oooforum.org/forum/viewtopic.phtml?p=65730#65730) genau diesen Muster-Quellcode verwendet.
Kann mal bitte jemand versuchen, diesen Quellcode zu testen. Gruß Jochen
Sub Main Dim vDescriptor Dim vFound oDoc = ThisComponent REM Create a descriptor from a searchable document. vDescriptor = oDoc.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 = "-" .SearchWords = false .SearchCaseSensitive = false .SearchBackwards = false End With REM Find the first one, or last one as it were! vFound = oDoc.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 = oDoc.findNext( vFound.getEnd(), vDescriptor) Loop End Sub
-- Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org 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