Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


Hi,

in einem Makro möchte ich Wörter trennen.  Der angehängte Kode
funktioniert auch, allerdings wird die Einstellung

  Optionen
    Spracheinstellungen
      Linuistik
        Optionen
          Minimale Wortlänge für Silbentrennung

nicht berücksichtigt.  Egal welcher Wert eingestellt ist, das
vierbuchstabige Wort 'eine' wird getrennt.  Die Einstellungen 'Zeichen
vor dem Zeilenumbruch' und 'Zeichen nach dem Zeilenumbruch' werden
dagegen befolgt.  Wird ein Wert auf 3 gesetzt, wird das Wort 'eine'
nicht mehr getrennt.  Auch in Dokumenten wird die Einstellung zur
Mindestlänge beachtet.

In der API-Dokumentation zum Interface XHyphenator steht zum Argument
aProperties

Parameter aProperties
provides property values to be used for this function call only. It 
is usually empty in order to use the default values supplied with 
the property set.

Habe ich irgend etwas übersehen?  Was muss ich beachten, damit die
vorgegebene Mindestlänge von Wörtern bei der Silbentrennung
berücksichtigt wird?

Viele Grüße
Stephan Hennig


Option Explicit
Sub Main
  Dim oHyphen As Object
  Dim oLocale As New com.sun.star.lang.Locale
  Dim emptyArgs() As New com.sun.star.beans.PropertyValue
  Dim vReturn
  Dim sWord, sHyphWord As String
  Dim msg As String
        
  oHyphen = createUnoService("com.sun.star.linguistic2.Hyphenator")
  oLocale.Language = "de"
  oLocale.Country = "DE"
  sWord = "eine"
        
  vReturn = oHyphen.createPossibleHyphens(sWord, oLocale, emptyArgs())
  If IsNull(vReturn) Then
    sHyphWord = "Null"
  Else
    sHyphWord = vReturn.getPossibleHyphens()
  End If

  msg = "Hyphenating " & sWord & CHR$(10) & _
    "Result: " & sHyphWord & CHR$(10)
  MsgBox msg, 0, "Hyphenate Words"
End Sub

-- 
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Tips 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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.