Hallo lummo,
Also es gibt eine Lösung
Folgende Schritte:
A. Dummy-Makro erzeugen
1) ein leeres Dokument öffnen
2) VB-Editor öffnen mit Alt+F11
3) im Projekt-Fenster mit der rechten Maustaste auf Normal
-> Einfügen -> Modul
Es öffnet sich ein Modulfenster
4) Dummy-Makro Tunix in das Modul-Fenster per Copy&Paste einfügen
Code:
Sub Tunix()
'*** Dummy-Function, die nichts tut
End Sub
5) Normal.dot speichern im VB-Editor mit Strg+S
(oder Datei -> Normal speichern)
6) VB-Editor schliessen (mit Alt+Q)
B. neue Symbolleiste erzeugen
1) Symbolleiste erzeugen
irgendwo in der Symbolleiste
rechte Maustaste -> Anpassen -> Karteikarte Symbolleiste -> Taste Neu
(Es öffnet sich der Dialog zum Erzeugen einer neuen Symbolleiste)
Einen Namen vergeben, und verfügbar machen in Normal.dot, OK
(irgendwo ist über dem Anpassen-Fenster ist eine neu Symbolleiste)
Die neu Symbolleiste an ein passenden Platz zu den bestehenden Symbolleisten ziehen.
C. Button für Tunix auf neuer Symbolleiste erzeugen
(Anpassen-Dialog ist noch offen)
1) Reiter Befehle aktivieren
2) unter Kategorien->Makros' aussuchen
(im rechten Fenster erscheinen die auswählbaren Makros)
3) Normal.Modul1.Tunix mit der linken Maustaste anklicken
und mit gedrückter linker Maustaste auf die neu symbolleiste ziehen und loslassen
(jetzt ist auf der neuen Modulleiste ein Button->Normal.Modul1.Tunix' zu sehen)
4) den Button mit der rechten Maustaste anklicken, Standar anhaken
(ggf. kann man auch noch das symbol ändern)
5) im Anpassen-Dialog den->Schliessen'-Button betätigen
D. Normal.dot speichern
(wenn in den Optionen nicht automatisches Speichern eingestellt ist)
1) VB-Editor öffnen mit Alt+F11
2) im Projekt-Fenster Normal markieren
3) Normal.dot speichern mit Strg+S
4) VB-Editor schliessen (mit Alt+Q)
E. Eine Dot mit Makro erzeugen, die die Backspacetaste mit dem Button verbindet
1) alle Dokumente schliessen
2) Leeres Dokument als Vorlage (!!!) erzeugen
3) VB-Editor öffnen mit Alt+F11
4) TemplateProject(Vorlage1) im Projektfenster markieren
5) rechte Maustaste -> Einfügen -> Modul
(Modulfenster öffnet sich)
6) in das Modul-Fenster folgenden Code per Copy&Paste einfügen
Code:
Option Explicit
'**********************************************************
'Start von Word
Sub AutoExec()
Call myKeyBackspaceAufMakroTuNixLegen
End Sub
'**********************************************************
'Beendigung von Word
Sub autoexit()
Call myKeyBackspaceAufMakroTuNixLoeschen
End Sub
'**********************************************************
Function myKeyBackspaceAufMakroTuNixLegen()
'***
'*** Function verbindet die BackSpace-Taste mit der Function TuNix
Application.CustomizationContext = NormalTemplate
->vorsorglich Shortcut löschen
FindKey(BuildKeyCode(Arg1:=wdKeyBackspace)).Clear
->Backspace-Taste mit dem Makro TuNix verbinden
KeyBindings.Add _
KeyCode:=BuildKeyCode(Arg1:=wdKeyBackspace), _
KeyCategory:=wdKeyCategoryCommand, Command:=Normal.Modul1.Tunix
End Function
'**********************************************************
Function myKeyBackspaceAufMakroTuNixLoeschen()
'***
'*** Function hebt die Verbindung der BackSpace-Taste zu der Function TuNix auf
Application.CustomizationContext = NormalTemplate
->Shortcut auflösen/löschen
FindKey(BuildKeyCode(Arg1:=wdKeyBackspace)).Clear
End Function
7) ggf Command:=Normal.Modul1.Tunix auf den richtigen Modulnamen anpassen
8 ) VB-Editor beenden (Alt+Q)
9) Vorlage unter sinnigem Namen im Office-Startup-Ordner speichern und schliessen
10) Word schliessen
F. Word starten und Backspace-Taste ausprobieren
(dürfte nicht mehr funktionieren)
Gruß Matjes
ps: mal sehen, was ich in der Beschreibung noch vergessen habe :
Ach ja, wenn Du die Backspace-Taste wieder funktionsfähig haben willst,
verschiebst Du die dot-Datei aus dem StartUp-Ordner ;D
