NORXND

SchoolStyle - Simple macro for changing "Heading" type of text.

May 16th, 2021 (edited)
407
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' \\ SchoolStyle - Simple tool for changing "Heading" type of text.
  2. ' \\ Yes. I didnt know there is shortcut for that.
  3. ' \\ Only and ONLY Polish word!
  4. ' \\ (C) NORXND 2021
  5. Sub Document_open()
  6.     With Application
  7.         .CustomizationContext = ThisDocument
  8.          
  9.          ' \\ Tytuł (ALT + SHIFT + 0)
  10.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey0), _
  11.         KeyCategory:=wdKeyCategoryCommand, _
  12.         Command:="SchoolStyle_Heading0"
  13.        
  14.         ' \\ Nagłówek 1 (ALT + SHIFT + 1)
  15.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey1), _
  16.         KeyCategory:=wdKeyCategoryCommand, _
  17.         Command:="SchoolStyle_Heading1"
  18.    
  19.         ' \\ Nagłówek 2 (ALT + SHIFT + 2)
  20.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey2), _
  21.         KeyCategory:=wdKeyCategoryCommand, _
  22.         Command:="SchoolStyle_Heading2"
  23.        
  24.         ' \\ Nagłówek 3 (ALT + SHIFT + 3)
  25.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey3), _
  26.         KeyCategory:=wdKeyCategoryCommand, _
  27.         Command:="SchoolStyle_Heading3"
  28.        
  29.         ' \\ Nagłówek 4 (ALT + SHIFT + 4)
  30.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey4), _
  31.         KeyCategory:=wdKeyCategoryCommand, _
  32.         Command:="SchoolStyle_Heading4"
  33.        
  34.         ' \\ Nagłówek 5 (ALT + SHIFT + 5)
  35.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey5), _
  36.         KeyCategory:=wdKeyCategoryCommand, _
  37.         Command:="SchoolStyle_Heading5"
  38.        
  39.         ' \\ Nagłówek 6 (ALT + SHIFT + 6)
  40.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKey6), _
  41.         KeyCategory:=wdKeyCategoryCommand, _
  42.         Command:="SchoolStyle_Heading6"
  43.        
  44.         ' \\ Addon to original hotkeys:
  45.        
  46.         ' \\ Nagłówek 4 (ALT + CTRL + 4)
  47.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey4), _
  48.         KeyCategory:=wdKeyCategoryCommand, _
  49.         Command:="SchoolStyle_Heading4"
  50.        
  51.         ' \\ Nagłówek 5 (ALT + CTRL + 5)
  52.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey5), _
  53.         KeyCategory:=wdKeyCategoryCommand, _
  54.         Command:="SchoolStyle_Heading5"
  55.        
  56.         ' \\ Nagłówek 6 (ALT + CTRL + 6)
  57.        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKey6), _
  58.         KeyCategory:=wdKeyCategoryCommand, _
  59.         Command:="SchoolStyle_Heading6"
  60.     End With
  61. End Sub
  62. Sub SchoolStyle_Heading0()
  63.     Selection.Style = "Tytuł"
  64. End Sub
  65. Sub SchoolStyle_Heading1()
  66.     Selection.Style = "Nagłówek 1"
  67. End Sub
  68. Sub SchoolStyle_Heading2()
  69.     Selection.Style = "Nagłówek 2"
  70. End Sub
  71. Sub SchoolStyle_Heading3()
  72.     Selection.Style = "Nagłówek 3"
  73. End Sub
  74. Sub SchoolStyle_Heading4()
  75.     Selection.Style = "Nagłówek 4"
  76. End Sub
  77. Sub SchoolStyle_Heading5()
  78.     Selection.Style = "Nagłówek 5"
  79. End Sub
  80. Sub SchoolStyle_Heading6()
  81.     Selection.Style = "Nagłówek 6"
  82. End Sub
Add Comment
Please, Sign In to add comment