Dipl.-Ing
Hanna-Chris Gast
Stand 20. Dezember
2020
Einrichten
der altgriechischen (=polytonischen) Tastatur unter Windows
10:
Aus: https://homepage.ruhr-uni-bochum.de/Thomas.Ihnken/win10.htm,
(Download
17.12.2020, etwas modifiziert)
(1)
Auf dem
Startbildschirm rechts unten in der Taskleiste auf das
Sprachensymbol (DEU DE)
linksklicken.
(2)
In dem
aufklappenden Fenster auf "Bevorzugte Sprachen" linksklicken.
(3)
Dort
linksklicken … auf "Bevorzugte Sprache hinzufügen" und in der
Sprachauswahl auf "Griechisch" linksklicken.
(Wenn Ihnen das Herunterscrollen
bis zum Buchstaben
"G" zu mühsam ist, können Sie im Feld "Sprachnamen
eingeben…" auch zum Beispiel "Griechisch" eintippen.)
(4)
Auf
Ελληνικά linksklicken, im erweiterten Feld dann auf "Optionen".
(5)
Im
neuen Fenster auf "Tastatur hinzufügen" linksklicken. In der
rechts
erscheinenden Auswahl auf "Griechisch (Polytonisch)" klicken.
Die polytonische Tastatur ist nun installiert und erscheint
fortan in der
Auswahl des Sprachenfeldes auf der der Taskleiste des Desktops
rechts unten als
ΕΛ (für Ελληνικά).
(6)
Das Layout
der altgriechischen Tastatur finden Sie HIER.
******************************
Siehe auch: https://homepage.ruhr-uni-bochum.de/Thomas.Ihnken/graecum.htm
Anregungen und Fragen bitte an:
Thomas Ihnken
(thomas.ihnken(at)rub.de)
******************************************************************************************************
Für das Öffnen der
Bildschirmtastatur gibt es unter Windows 10 das Tastenkürzel Strg + Win
+ o.
Man kann dies aber
auch per VBA-Makro erledigen. Die Bildschirmtastatur brauche
ich für die
Eingabe von griechischen Buchstaben.
Für das Umstellen der Tastatur usw. muss natürlich erst die
Spracheinstellungen
in Windows installiert werden (siehe oben).
Unter Windows 10 funktionierte bei mir das bisherige VBA-Makro
für
Bildschirmtastaturen nicht mehr. Im Internet fand ich nach längerer Suche schließlich eine funktionierende Lösung.
Dafür sind im
Makro-Modul vor dem allerersten Makro zwei Funktionen zu
deklarieren.
Option Explicit
'
' Für
Bildschirmtastatur in Windows 10 mit
64 Bit, Download
2. Dezember 2020:
'
aus: https://stackoverflow.com/questions/49826995/calling-on-screen-keyboard-from-excel-vba
Private Declare Function ShellExecute Lib
"shell32.dll" Alias "ShellExecuteA" _
(ByVal
hwnd As Long,
ByVal lpOperation As String, _
ByVal
lpFile As
String,
ByVal
lpParameters As
String,
ByVal
lpDirectory As
String,
_
ByVal
nShowCmd As
Long)
As Long
Private Declare Function
Wow64EnableWow64FsRedirection Lib
"kernel32.dll" _
(ByVal
Enable As
Boolean)
As Boolean
'
***********************************************************************
Sub
Bildschirmtastatur_starten()
'
Download 2. Dezember 2020.
'
Für Windows 10 und 64 Bit wird eine neue Methode für
das Makro benötigt.
'
Das folgende VBA-Makro funktioniert bei mir:
' https://stackoverflow.com/questions/49826995/calling-on-screen-keyboard-from-excel-vba
''Sub
RunOsk_on64Bit()
Const
SW_SHOWNORMAL = 1
On
Error Resume
Next
Wow64EnableWow64FsRedirection False
ShellExecute
0,
"open", "osk.exe", "", "C:\windows\system32\osk.exe",
SW_SHOWNORMAL
Wow64EnableWow64FsRedirection True
End
Sub
'
---------------------------------------------------------------------------------------------------------
Sub
Bildschirmtastatur_schließen()
' H. Chris Gast, Stand
12. Januar 2016.
' Funktioniert in Word
2000 bis Word 2010,
und in Windows XP bis Windows
10.
'
*************
' Bildschirmtastatur
per Makro schließen:
' aus:
http://www.office-loesung.de/ftopic146962_0_0_asc.php,
verfasst: 21. Mai 2007.
Dim
objWMIService
Dim
colProcessList
Dim
objProcess
Set
objWMIService = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set
colProcessList =
objWMIService.ExecQuery _
("Select * from Win32_Process Where Name =
'osk.exe'")
For
Each
objProcess In
colProcessList
objProcess.Terminate
Next
End
Sub
'
---------------------------------------------------------------------------------------------------------
******************************************************************************************************
Wenn
Sie wollen,
können sie auch die griechische Tastatur per VBA-Makro
aufrufen:
Sub Griechisch()
'
Dipl.-Ing. Hanna-Chris Gast, Stand 20. Dezember 2020.
'
mein gewähltes Tastenkürzel: Strg + 6
'
****************
'
Zur Griechischen Tastatur und Sprache wechseln:
Application.Keyboard
(1032)
Selection.LanguageID = wdGreek
Selection.NoProofing = False
Application.CheckLanguage
=
True
'
****************
'
Bildschirmtastatur aufrufen
Call
Bildschirmtastatur_starten
'
****************
'
Bildschirmtastatur von Hand schließen.
End
Sub
'
---------------------------------------------------------------------------------------------------------
zurück
zu Deutsch:
Sub s_Deutsch()'
'
Deutsche Sprache zuweisen und Rechtschreibprüfung
aufrufen:
'
mein gewähltes Tastenkürzel: Strg + 1
Selection.LanguageID
= wdGerman
Selection.NoProofing = False
Application.CheckLanguage
=
True
'
Zur deutschen Tastatur und Sprache wechseln:
Application.Keyboard
(1031)
Call
Bildschirmtastatur_schließen
End
Sub
'
---------------------------------------------------------------------------------------------------------
******************************************************************************************************
Hanna-Chris
Gast, in Berlin, Stand: 20.
Dezember
2020.
http://www.siebener-kurier.de/chris-aufsaetze/Griechische_Schrift_Computer.pdf
http://www.siebener-kurier.de/chris-aufsaetze/Griechisch-fuer-Windows10.html