Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' \\ SchoolStyle - Simple tool for changing "Heading" type of text.
- ' \\ Yes. I didnt know there is shortcut for that.
- ' \\ Only and ONLY Polish word!
- ' \\ (C) NORXND 2021
- Sub Document_open()
- With Application
- .CustomizationContext = ThisDocument
- ' \\ Tytuł (ALT + SHIFT + 0)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey0), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading0"
- ' \\ Nagłówek 1 (ALT + SHIFT + 1)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey1), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading1"
- ' \\ Nagłówek 2 (ALT + SHIFT + 2)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey2), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading2"
- ' \\ Nagłówek 3 (ALT + SHIFT + 3)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey3), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading3"
- ' \\ Nagłówek 4 (ALT + SHIFT + 4)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey4), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading4"
- ' \\ Nagłówek 5 (ALT + SHIFT + 5)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey5), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading5"
- ' \\ Nagłówek 6 (ALT + SHIFT + 6)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey6), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading6"
- ' \\ Addon to original hotkeys:
- ' \\ Nagłówek 4 (ALT + CTRL + 4)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey4), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading4"
- ' \\ Nagłówek 5 (ALT + CTRL + 5)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey5), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading5"
- ' \\ Nagłówek 6 (ALT + CTRL + 6)
- .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey6), _
- KeyCategory:=wdKeyCategoryCommand, _
- Command:="SchoolStyle_Heading6"
- End With
- End Sub
- Sub SchoolStyle_Heading0()
- Selection.Style = "Tytuł"
- End Sub
- Sub SchoolStyle_Heading1()
- Selection.Style = "Nagłówek 1"
- End Sub
- Sub SchoolStyle_Heading2()
- Selection.Style = "Nagłówek 2"
- End Sub
- Sub SchoolStyle_Heading3()
- Selection.Style = "Nagłówek 3"
- End Sub
- Sub SchoolStyle_Heading4()
- Selection.Style = "Nagłówek 4"
- End Sub
- Sub SchoolStyle_Heading5()
- Selection.Style = "Nagłówek 5"
- End Sub
- Sub SchoolStyle_Heading6()
- Selection.Style = "Nagłówek 6"
- End Sub
Add Comment
Please, Sign In to add comment