Hallo Volker,
Am 18.12.2011 20:01, schrieb Volker Lenhardt:
So ganz verstehe ich deinen Wunsch nicht. Soll das heißen, dass du einen
Button einfügen willst, der dasselbe macht wie der Menüpunkt
Bearbeiten|Suchen&Ersetzen? Für einen einzigen eingesparten Mausklick?
Ja. Warum ist das so ungewöhnlich.
1) Ein prominentes Button wie z.B. "Begriff suchen" innerhalb einer
Tabelle ist doch einfacher anzuklicken, als "Bearbeiten -> Suchen &
Ersetzen"
2) Ich habe vor, eine InputBox zu generieren, über die der gesuchte
Begriff eingegeben werden kann.
3) Und dann eins MsgBox, die abfragt, ob der Suchbegriff gefunden worden
ist bzw. ob eine Folgesuche erfolgen soll.
Diese drei Punkte sind es mir Wert, ein Button mit der von mir
gewünschten Funktion zu erstellen.
Hast Du einen Beispiel-Code, der nicht über den dispatcher erstellt
worden ist?
Ich werde mir jetzt folgenden Code näher anschauen.
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 [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
