home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / openoffice / f_0177 / UserfieldsLanguage.xba < prev   
Encoding:
Extensible Markup Language  |  2001-04-23  |  3.7 KB  |  107 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2.  
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="UserfieldsLanguage" script:language="StarBasic">Public ErrorHeader
  4. Public ErrorMsg1
  5. Public ErrorMsg2
  6. Public HeaderLabel
  7. Public CancelButton
  8. Public SaveButton
  9.  
  10.  
  11.  
  12. Sub Main
  13.     Userfields.StartChangesUserfields
  14. End Sub
  15.  
  16.  
  17.  
  18. Sub LoadLanguage(ISOLanguage)
  19.  
  20.     Select Case (ISOLanguage)
  21.  
  22.         Case "en"
  23.             nSelLang = 2
  24.             ErrorHeader = "Modify userfields"
  25.             ErrorMsg1 = "It is not possible to fill more than 255 userfields"
  26.             ErrorMsg2 = "No userfields found on this document"
  27.             HeaderLabel = "Modify userfields"
  28.             CancelButton = "Cancel"
  29.             SaveButton = "Save"
  30.  
  31.         Case "fr"
  32.             nSelLang = 3
  33.             ErrorHeader = "Editer les champs utilisateur"
  34.             ErrorMsg1 = "Impossible de remplir plus de 255 champs !"
  35.             ErrorMsg2 = "Il n'y a aucun champs utilisateur dans le document !"
  36.             HeaderLabel = "Remplir les champs utilisateur"
  37.             CancelButton = "Annuler"
  38.             SaveButton = "Sauvegarder"
  39.  
  40.         Case "it"
  41.             nSelLang = 4
  42.             ErrorHeader = "Modifica i campi utente"
  43.             ErrorMsg1 = "Non ├¿ possibile compilare pi├╣ di 255 campi utente"
  44.             ErrorMsg2 = "Nel documento non ├¿ stato trovato alcun campo utente!"
  45.             HeaderLabel = "Compilazione campi utente"
  46.             CancelButton = "Annulla"
  47.             SaveButton = "Salva"
  48.  
  49.         Case "es"            
  50.             nSelLang = 5
  51.             ErrorHeader = "Editar campos del usuario"
  52.             ErrorMsg1 = "No se pueden rellenar m├ís de 255 campos del usuario"
  53.             ErrorMsg2 = "┬íNo se encontraron campos del usuario en el documento!"
  54.             HeaderLabel = "Rellenar campos del usuario"
  55.             CancelButton = "Cancelar"
  56.             SaveButton = "Guardar"
  57.             
  58.         Case "pt"
  59.             nSelLang = 6
  60.             ErrorHeader = "Editar campos do utilizador"
  61.             ErrorMsg1 = "N├úo ├⌐ poss├¡vel preencher mais do que 255 campos do utilizador."
  62.             ErrorMsg2 = "N├úo foram encontrados campos do utilizador no documento !"
  63.             HeaderLabel = "Preencher campos do utilizador"
  64.             CancelButton = "Cancelar"
  65.             SaveButton = "Guardar"
  66.  
  67.  
  68.         Case "nl"
  69.             nSelLang = 7
  70.             ErrorHeader = "Gebruikersvelden bewerken"
  71.             ErrorMsg1 = "Er konden niet meer dan 255 gebruikersvelden worden ingevuld"
  72.             ErrorMsg2 = "In het document werden geen gebruikersvelden gevonden!"
  73.             HeaderLabel = "Gebruikersvelden invullen"
  74.             CancelButton = "Annuleren"
  75.             SaveButton = "Opslaan"
  76.  
  77.         Case "sv"
  78.             nSelLang = 8
  79.             ErrorHeader = "Bearbeta anv├ñndarf├ñlten"
  80.             ErrorMsg1 = "H├╢gst 255 anv├ñndarf├ñlt kan fyllas i"
  81.             ErrorMsg2 = "Inga anv├ñndarf├ñlt kunde hittas i dokumentet !"
  82.             HeaderLabel = "Fyll i anv├ñndarf├ñlten"
  83.             CancelButton = "Avbryt"
  84.             SaveButton = "S├ñkra/Spara"
  85.  
  86. '            Case "da"
  87.  
  88. '            Case "pl"
  89.  
  90. '            Case "ru"
  91.  
  92.  
  93.         '    GERMAN & Fallback/Default
  94.         Case Else
  95.             nSelLang = 1
  96.             ErrorHeader = "Benutzerfelder bearbeiten"
  97.             ErrorMsg1 = "Es k├╢nnen nicht mehr als 255 Benutzerfelder ausgef├╝llt werden"
  98.             ErrorMsg2 = "Es wurden keine Benutzerfelder auf dem Dokument gefunden !"
  99.             HeaderLabel = "Benutzerfelder ausf├╝llen"
  100.             CancelButton = "Abbrechen"
  101.             SaveButton = "Sichern"
  102.  
  103.     End Select
  104.     
  105.     
  106. End Sub
  107. </script:module>