Office 2007 - zmiana skrótów klawiszowych

Niektórzy z nas mają "przyjemność" pracować z Microsoft Office 2007 w wersji językowej innej niż polska. Wszystko jest fajnie, ale zdarza się, że Ctrl+B nie pogrubia tekstu ;) Np. w niemieckiej wersji pakietu Office służy do tego skrót klawiszowy Ctrl+Shift+F (a właściwie Strg+Umschalt+F) - od Fettdruck.

Niestety mam okazję pracować z Officem dopasowanym do języka Goethego ;) Skróty klawiszowe wyglądają w nim tak:

Ctrl+Shift+F - pogrubienie
Ctrl+Shift+K - kursywa
Ctrl+Shift+U - podkreślenie

Jak wrócić do starych, dobrych, jakże polskich Ctrl+B, Ctrl+I i Ctrl+U? ;) Jak zmienić te skróty klawiszowe? :)

W Wordzie 2007 i Excelu 2007 jest to jak najbardziej możliwe ;) Moja instrukcja jest napisana dla niemieckiej wersji pakietu Office, jeżeli ktoś trafi na inną to ze słownikiem sobie poradzi ;)

Word 2007

1. Wciskamy przycisk Microsoft Office, potem wciskamy "Word-Optionen" i wybieramy zakładkę "Anpassen".

2. Wciskamy przycisk "Anpassen" (obok etykiety "Tastenkombinationen").

3. Wybieramy kategorię "Alle Befehle".

4. Z prawej listy wybieramy element "Fett" i ustalamy nową kombinację klawiszy: wybieramy nową kombinacje klawiszy CTRL+B (STRG+B) i dodajemy ją (przycisk "Zuordnen").

5. Podobnie postępujemy dla elementów "Kursiv" i "Unterstrichen".

6. Zamykamy ("Schließen").

7. Klikamy OK ;)


Excel 2007

1. Przycisk Microsoft Office, przycisk "Excel-Optionen" i zakładka "Häufig verwendet".

2. Zaznaczamy "Entwicklerregisterkarte in der Miltifunktionleiste anzeigen".

3. OK.

4. Wybieramy wstążkę "Entwicklertools".

7. Klikamy "Makro aufzeichen" - zaczynamy nagrywać makro :)

8. Nazywamy makro "Bold_Text", skrót klawiszowy "STRG + B", makro zapisywane do "Persönliche Makroarbeitsmappe".

9. Pogrubiamy tekst używając starego skrótu (STRG+Umschalt+F) i naciskamy przycisk "Aufzeichnung beenden".

10. Podobnie nagrywamy makra "Italic_Text" (STRG+Umschalt+K) i "Underlined_Text" (STRG+Umschalt+U).

11. Wciskamy przycisk "Makros".

12. Wybieramy któreś makro z PERSONAL.XLSB i wciskamy przycisk "Schritt".

13. Wstawiamy następujący kod VBA:

Sub Bold_Text()
'
' Bold_Text Makro
'
' Tastenkombination: Strg+b
'
If Selection.Font.Bold Then
Selection.Font.Bold = False
Else
Selection.Font.Bold = True
End If
End Sub
Sub Italic_Text()
'
' Italic_Text Makro
'
' Tastenkombination: Strg+i
'
If Selection.Font.Italic Then
Selection.Font.Italic = False
Else
Selection.Font.Italic = True
End If
End Sub
Sub Underlined_Text()
'
' Underlined_Text Makro
'
' Tastenkombination: Strg+u
'
If Selection.Font.Underline <> xlUnderlineStyleSingle Then
Selection.Font.Underline = xlUnderlineStyleSingle
Else
Selection.Font.Underline = xlUnderlineStyleNone
End If
End Sub

14. Zamykamy edytor VBA, na komunikat o wyłączeniu debuggera dajemy OK.

15. Odznaczamy opcję "Entwicklerregisterkarte in der Miltifunktionleiste anzeigen" ("Excel-Optionen" -> "Häufig verwendet").

16. Przy zamykaniu Excela potwierdzamy zmiany w Makrobearbeitsmappe ;)

Dzięki tym działaniom skróty klawiszowe będą takie jak w naszych polskich rozwiązaniach :) A jednocześnie działać będą standardowe, niemieckie skróty ;)