Code Snippet "VBA Word"

Umstellen der Tastatur in Word

ab Word 2000

'Keyboard auf Russisch umstellen (geht nur für Word!)
Function funKeyRU()
  Application.Keyboard (134678535) 'Schweizerdeutsch
  'MsgBox (Application.Keyboard())
  funKeyRU = True
End Function

'Keyboard auf Schweizerdeutsch umstellen (geht nur für Word!)
Function funKeySG()
  Application.Keyboard (134678535) 'Schweizerdeutsch
  'MsgBox (Application.Keyboard())
  funKeySG = True
End Function