Re: [de-users] Calc -> Formular-Steuerelement -> Schaltfläche -> Zuweisung einer Tastenkombination

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 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