home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / openoffice / f_0177 / AutoTextLanguage.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-04-23  |  1.4 KB  |  51 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2.  
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="AutoTextLanguage" script:language="StarBasic">Sub Main
  4.     Autotext.Main
  5. End Sub
  6.  
  7.  
  8.  
  9. Sub LoadLanguage (ISOLanguage)
  10.  
  11. '    Const cLANGUAGE_DONTKNOW = 1023, cLANGUAGE_SYSTEM = 0, cLANGUAGE_CHINESE = 4
  12. '    Const cLANGUAGE_DANISH = 1030, cLANGUAGE_DUTCH = 1043, cLANGUAGE_ENGLISH = 1033
  13. '    Const cLANGUAGE_FINNISH = 1035, cLANGUAGE_FRENCH = 1036, cLANGUAGE_GERMAN = 1031
  14. '    Const cLANGUAGE_GREEK = 1032, cLANGUAGE_ITALIAN = 1040, cLANGUAGE_JAPANESE = 1041
  15. '    Const cLANGUAGE_NORWEGIAN = 20, cLANGUAGE_PORTUGUESE = 2070, cLANGUAGE_RUSSIAN = 1049
  16. '    Const cLANGUAGE_SPANISH = 1034, cLANGUAGE_SWEDISH = 1053, cLANGUAGE_TURKISH = 1055
  17.  
  18.     Select Case (ISOLanguage)
  19.  
  20. '        Case "en"
  21.  
  22. '        Case "fr"
  23.  
  24. '        Case "it"
  25.  
  26. '        Case "es"
  27.  
  28. '        Case "pt"
  29.  
  30. '        Case "nl"
  31.  
  32. '        Case "sv"
  33.  
  34. '        Case "da"
  35.  
  36. '        Case "pl"
  37.  
  38. '        Case "ru"
  39.  
  40.         '    GERMAN & Fallback/Default
  41.         Case Else
  42.             strHeading1 = "├£berschrift 1"
  43.             strGroup = "Bereich:"
  44.             strBlockName = "Name des Bausteins"
  45.             strBlockShortName = "K├╝rzel"
  46.             strColumnWidth = "13cm"
  47.  
  48.     End Select
  49.     
  50. End Sub
  51. </script:module>