21. marts 2007 - 23:09Der er
2 kommentarer og 1 løsning
'Find Word-version'-funktion
Jeg er ved at lave en skabelon til Word med makroer. Problemet er, at den skal kunne bruges både i en italiensk og en dansk version af word. Derfor er jeg nødt til at lave nogle 'if' funktioner, som finder ud af, om det er den italienske eller den danske version af Word.
F.eks.:
I den danske Word skal kommandoen hedde Selection.Style = ActiveDocument.Styles("Billedtekst") mens den i den italienske skal hedde Selection.Style = ActiveDocument.Styles("Didascalia")
Hvordan laver jeg en 'if'-funktion, som kan undersøge hvilken version jeg arbejder i?
Det kunne selvfølgelig også løses, hvis man kunne angive typografien "Billedtekst" på en anden måde. Det må kunne lade sig gøre eftersom den italienske Word selv finder ud af, af typografien "billedtekst" er "Didascalia", når man åbner et dansk dokument i det italienske Word
Sub GetGlobaltheLang() Select Case Application.International(wdProductLanguageID) Case wdEnglishUS MsgBox "EnglishUS" Case wdFrench MsgBox "French" Case wdGerman MsgBox "German" Case wdDanish MsgBox "Danish" Case wdItalian MsgBox "Italian" Case Else: 'US English as the default language
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
