Wann funktionieren die Kategorie-Tastenkürzel wie vorgesehen?

Ich habe das selbe Problem. Die Tastenkürzel für Kursiv und unterstrichen funktionieren allerdings noch. Strg + B funktioniert leider nicht. Somit bleibt mir nur die manuelle Handhabung

Ich finde es auch extrem wichtig, dass man alle Tastenkürzel per Makro verwalten kann. Sonst verliert man einfach den Überblick. Hab mir deshalb entsprechende Skripte gebaut.

Durch das leicht einbindbare Unterprogramm kannst du nun sogar deine vorhandenen Tastenkombis ausgeben (z. B. per Druckbefehl in pdf drucken) und diese dann mit ein paar Ersetzungen in die entsprechenden CALLs umwandeln, so dass du auch gleich deine
schon vergebenen Tastenkombis mit einbauen kannst.

Zur Tastenbelegung startest du dann einmalig das Skript "befehle_auf_tasten_legen" und im Bruchteil einer Sekunde sind alle Tastenkombis zugeordnet.

Aufruf:

Sub befehle_auf_tasten_legen()

Call Befehl_auf_Taste_legen("Alt+A,S Anstrich Formatvorlage")

Call Befehl_auf_Taste_legen("Strg+R,E ExtrasBerechnen")

Call Befehl_auf_Taste_legen("Strg+S,G normal.NewMacros.BildgroesseVeraendern")

End Sub



Unterprogramme dazu:

Sub Befehl_auf_Taste_legen(Tastenkombination_Befehlsname)

' Legt einen Befehl oder ein Makro auf eine tastenkombi la ALT+ay oder CONTROL+ff

' Halweg 2011

Dim Tastenkombi_key(1)

' Einzelparameter ermitteln (Tastenkombi / Befehl)

Leerzeichenposition = InStr(1, Tastenkombination_Befehlsname, " ")

Tastenkombination = LCase(Left(Tastenkombination_Befehlsname, Leerzeichenposition - 1))

Befehlsname = Trim(Mid(Tastenkombination_Befehlsname, Leerzeichenposition + 1)) ' Trim, damit die führenden Leerzeichen des befehls entfernt werden



' Einzeltasten zurücksetzen

Tastenkombi_key(0) = wdNoKey

Tastenkombi_key(1) = wdNoKey



' Einzeltasten links und rechts ermitteln (für alle Fälle erst mal 4)

Tastenteile = Split(Tastenkombination, ",")

' Tastenteile enthält jetzt so was wie ALT+UMSCHALT+V,d

' Nun wird linker und rechter Tasteneil getrennt betrachtet

For linksrechts = 0 To UBound(Tastenteile)

' Jetzt wird der jeweilige Tastenteil nach Einzeltasten untersucht

' Zunächst plus am Ende gegen "plus" austauschen

akt_tastenkombi = Tastenteile(linksrechts)

If Right(akt_tastenkombi, 1) = "+" Then ' die Plustaste selbst spielt eine Rolle und muss durch ein "plus" ersetzt werden

akt_tastenkombi = Left(akt_tastenkombi, Len(akt_tastenkombi) - 1) & "plus"

End If

Einzeln = Split(akt_tastenkombi, "+") ' die linke oder rechte Kombitaste wird in Einzeltasten zerlegt

Tastenkombi_key(linksrechts) = 0

For ind = 0 To UBound(Einzeln)

Tastenkombi_key(linksrechts) = Tastenkombi_key(linksrechts) + TCode(Einzeln(ind)) ' Für jede Einzeltaste wird der Tastenkode addiert

Next ind

Next linksrechts



' Befehlstyp ermitteln

If InStr(1, Befehlsname, " Formatvorlage") Then

Befehlsname = Replace(Befehlsname, " Formatvorlage", "")

typ = wdKeyCategoryStyle

ElseIf InStr(1, Befehlsname, ".") Then

typ = wdKeyCategoryMacro

Else

typ = wdKeyCategoryCommand

End If



' Taste zuordnen

KeyBindings.Add KeyCategory:=typ, _

KeyCode:=Tastenkombi_key(0), _

KeyCode2:=Tastenkombi_key(1), _

Command:=Befehlsname

End Sub

Function TCode(Tastenkuerzel)

' Übersetzen der Tasten aus dem Ausdruck der Tastenbelegung in Key-Codes

' Halweg 2011

TCode = 100000 ' irgendeine Nummer, die Fehler bringt, falls wir nix gefunden haben



' Sondertasten

If Tastenkuerzel = "" Then TCode = wdNoKey

If Tastenkuerzel = "alt" Then TCode = wdKeyAlt

If Tastenkuerzel = "lbutton" Then TCode = wdKeyLButton

If Tastenkuerzel = "rbutton" Then TCode = wdKeyRButton

If Tastenkuerzel = "cancel" Then TCode = wdKeyCancel

If Tastenkuerzel = "mbutton" Then TCode = wdKeyMButton

If Tastenkuerzel = "back" Then TCode = wdKeyBack

If Tastenkuerzel = "rück" Then TCode = wdKeyBack

If Tastenkuerzel = "tab" Then TCode = wdKeyTab

If Tastenkuerzel = "clear" Then TCode = wdKeyClear

If Tastenkuerzel = "return" Then TCode = wdKeyReturn

If Tastenkuerzel = "shift" Then TCode = wdKeyShift

If Tastenkuerzel = "umschalt" Then TCode = wdKeyShift

If Tastenkuerzel = "control" Then TCode = wdKeyControl

If Tastenkuerzel = "strg" Then TCode = wdKeyControl

If Tastenkuerzel = "menu" Then TCode = wdKeyMenu

If Tastenkuerzel = "pause" Then TCode = wdKeyPause

If Tastenkuerzel = "capital" Then TCode = wdKeyCapital

If Tastenkuerzel = "escape" Then TCode = wdKeyEscape

If Tastenkuerzel = "leertaste" Then TCode = vbKeySpace

If Tastenkuerzel = "space" Then TCode = keyspace

If Tastenkuerzel = "pageup" Then TCode = wdKeyPageUp

If Tastenkuerzel = "pagedown" Then TCode = wdKeyPageDown

If Tastenkuerzel = "end" Then TCode = wdKeyEnd

If Tastenkuerzel = "home" Then TCode = wdKeyHome

If Tastenkuerzel = "left" Then TCode = wdKeyLeft

If Tastenkuerzel = "links" Then TCode = wdKeyLeft

If Tastenkuerzel = "up" Then TCode = wdKeyUp

If Tastenkuerzel = "aufwärts" Then TCode = wdKeyUp

If Tastenkuerzel = "right" Then TCode = wdKeyRight

If Tastenkuerzel = "rechts" Then TCode = wdKeyRight

If Tastenkuerzel = "down" Then TCode = wdKeyDown

If Tastenkuerzel = "abwärts" Then TCode = wdKeyDown

If Tastenkuerzel = "select" Then TCode = wdKeySelect

If Tastenkuerzel = "print" Then TCode = wdKeyPrint

If Tastenkuerzel = "execute" Then TCode = wdKeyExecute

If Tastenkuerzel = "snapshot" Then TCode = wdKeySnapshot

If Tastenkuerzel = "insert" Then TCode = wdKeyInsert

If Tastenkuerzel = "delete" Then TCode = wdKeyDelete

If Tastenkuerzel = "help" Then TCode = wdKeyHelp

If Tastenkuerzel = "numlock" Then TCode = wdKeyNumlock



' Funktionstasten

If Tastenkuerzel = "f1" Then TCode = wdKeyF1

If Tastenkuerzel = "f2" Then TCode = wdKeyF2

If Tastenkuerzel = "f3" Then TCode = wdKeyF3

If Tastenkuerzel = "f4" Then TCode = wdKeyF4

If Tastenkuerzel = "f5" Then TCode = wdKeyF5

If Tastenkuerzel = "f6" Then TCode = wdKeyF6

If Tastenkuerzel = "f7" Then TCode = wdKeyF7

If Tastenkuerzel = "f8" Then TCode = wdKeyF8

If Tastenkuerzel = "f9" Then TCode = wdKeyF9

If Tastenkuerzel = "f10" Then TCode = wdKeyF10

If Tastenkuerzel = "f11" Then TCode = wdKeyF11

If Tastenkuerzel = "f12" Then TCode = wdKeyF12

If Tastenkuerzel = "f13" Then TCode = wdKeyF13

If Tastenkuerzel = "f14" Then TCode = wdKeyF14

If Tastenkuerzel = "f15" Then TCode = wdKeyF15

If Tastenkuerzel = "f16" Then TCode = wdKeyF16

' Buchstaben

If Tastenkuerzel = "a" Then TCode = wdKeyA

If Tastenkuerzel = "b" Then TCode = wdKeyB

If Tastenkuerzel = "c" Then TCode = wdKeyC

If Tastenkuerzel = "d" Then TCode = wdKeyD

If Tastenkuerzel = "e" Then TCode = wdKeyE

If Tastenkuerzel = "f" Then TCode = wdKeyF

If Tastenkuerzel = "g" Then TCode = wdKeyG

If Tastenkuerzel = "h" Then TCode = wdKeyH

If Tastenkuerzel = "i" Then TCode = wdKeyI

If Tastenkuerzel = "j" Then TCode = wdKeyJ

If Tastenkuerzel = "k" Then TCode = wdKeyK

If Tastenkuerzel = "l" Then TCode = wdKeyL

If Tastenkuerzel = "m" Then TCode = wdKeyM

If Tastenkuerzel = "n" Then TCode = wdKeyN

If Tastenkuerzel = "o" Then TCode = wdKeyO

If Tastenkuerzel = "p" Then TCode = wdKeyP

If Tastenkuerzel = "q" Then TCode = wdKeyQ

If Tastenkuerzel = "r" Then TCode = wdKeyR

If Tastenkuerzel = "s" Then TCode = wdKeyS

If Tastenkuerzel = "t" Then TCode = wdKeyT

If Tastenkuerzel = "u" Then TCode = wdKeyU

If Tastenkuerzel = "v" Then TCode = wdKeyV

If Tastenkuerzel = "w" Then TCode = wdKeyW

If Tastenkuerzel = "x" Then TCode = wdKeyX

If Tastenkuerzel = "y" Then TCode = wdKeyY

If Tastenkuerzel = "z" Then TCode = wdKeyZ

If Tastenkuerzel = "ä" Then TCode = wdKeySingleQuote

If Tastenkuerzel = "ö" Then TCode = wdKeyBackSingleQuote

If Tastenkuerzel = "ü" Then TCode = wdKeySemiColon

If Tastenkuerzel = "ß" Then TCode = wdKeyOpenSquareBrace



' Ziffern

If Tastenkuerzel = "0" Then TCode = wdKey0

If Tastenkuerzel = "1" Then TCode = wdKey1

If Tastenkuerzel = "2" Then TCode = wdKey2

If Tastenkuerzel = "3" Then TCode = wdKey3

If Tastenkuerzel = "4" Then TCode = wdKey4

If Tastenkuerzel = "5" Then TCode = wdKey5

If Tastenkuerzel = "6" Then TCode = wdKey6

If Tastenkuerzel = "7" Then TCode = wdKey7

If Tastenkuerzel = "8" Then TCode = wdKey8

If Tastenkuerzel = "9" Then TCode = wdKey9



' Numpad

If Tastenkuerzel = "numpad0" Then TCode = wdKeyNumpad0

If Tastenkuerzel = "numpad1" Then TCode = wdKeyNumpad1

If Tastenkuerzel = "numpad2" Then TCode = wdKeyNumpad2

If Tastenkuerzel = "numpad3" Then TCode = wdKeyNumpad3

If Tastenkuerzel = "numpad4" Then TCode = wdKeyNumpad4

If Tastenkuerzel = "numpad5" Then TCode = wdKeyNumpad5

If Tastenkuerzel = "numpad6" Then TCode = wdKeyNumpad6

If Tastenkuerzel = "numpad7" Then TCode = wdKeyNumpad7

If Tastenkuerzel = "numpad8" Then TCode = wdKeyNumpad8

If Tastenkuerzel = "numpad9" Then TCode = wdKeyNumpad9

If Tastenkuerzel = "multiply" Then TCode = wdKeyMultiply

If Tastenkuerzel = "add" Then TCode = wdKeyAdd

If Tastenkuerzel = "separator" Then TCode = wdKeySeparator

If Tastenkuerzel = "subtract" Then TCode = wdKeySubtract

If Tastenkuerzel = "decimal" Then TCode = wdKeyDecimal

If Tastenkuerzel = "divide" Then TCode = wdKeyDivide



' Sonderzeichen

If Tastenkuerzel = "!" Then TCode = wdKeyShift + wdKey1

If Tastenkuerzel = """" Then TCode = wdKeyShift + wdKey2

If Tastenkuerzel = "§" Then TCode = wdKeyShift + wdKey3

If Tastenkuerzel = "$" Then TCode = wdKeyShift + wdKey4

If Tastenkuerzel = "%" Then TCode = wdKeyShift + wdKey5

If Tastenkuerzel = "&" Then TCode = wdKeyShift + wdKey6

If Tastenkuerzel = "/" Then TCode = wdKeyShift + wdKey7

If Tastenkuerzel = "(" Then TCode = wdKeyShift + wdKey8

If Tastenkuerzel = ")" Then TCode = wdKeyShift + wdKey9

If Tastenkuerzel = "=" Then TCode = wdKeyShift + wdKey0

If Tastenkuerzel = "#" Then TCode = wdKeySlash

If Tastenkuerzel = "ß" Then TCode = wdKeyOpenSquareBrace

If Tastenkuerzel = "plus" Then TCode = wdKeyEquals

If Tastenkuerzel = "+" Then TCode = wdKeyEquals

If Tastenkuerzel = "*" Then TCode = wdKeyShift + wdKeyEquals

If Tastenkuerzel = "," Then TCode = wdKeyComma

If Tastenkuerzel = "." Then TCode = wdKeyPeriod

If Tastenkuerzel = "-" Then TCode = wdKeyHyphen

If Tastenkuerzel = "<" Then TCode = 226

If Tastenkuerzel = ">" Then TCode = 226 + wdKeyShift

If TCode = 100000 Then

MsgBox "Tastencode für """ & Tastenkuerzel & """ wurde nicht gefunden."

End

End If

End Function

Liebe Lisa, im zweiten Anlauf habe ich es gefunden und hinbekommen. VIELEN DANK, die Beschreibung, wie man Tastenkürzel anlegt hat es ermöglicht! DANKE!!!! Beim ersten Mal schaute ich bloß in der Kategorie "Einfügen", wo die Funktion nicht aufgelistet war,
bei "Bearbeiten" habe ich's jetzt gefunden. SUPER.

Ein Gutes Neues Jahr wünscht Dir Peter

Hallo,

eine De-Aktivierung ist nicht vorgesehen.

Wann erscheint die Meldung genau?

Viele Grüße

Thomas

Hallo Michael,

Die Kategorien werden nicht synchronisiert. Wann dieses machbar ist, das kann ich leider nicht sagen, da ich nicht weiß, wann die Entwickler ein Fix dafür rausbringen. Einfach weiterhin ein Feedback abgeben.