Skip to content

Instantly share code, notes, and snippets.

View simonlehmann's full-sized avatar

Simon Lehmann simonlehmann

12 followers · 13 following
  • Mable
  • Perth, Western Australia
View GitHub Profile
@simonlehmann
simonlehmann / Fixit.vb
Created January 26, 2018 02:57
Fixes Microsoft Word's multilevel numbered heading glitches (https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_win10-mso_2013_release/word-2013s-heading-numbering-reverting-to-pipe/9129622c-8289-441b-b94f-7f7552acd828)
Sub Fixit()
Dim templ As ListTemplate
Dim lev As ListLevel
For Each templ In ActiveDocument.ListTemplates
For Each lev In templ.ListLevels
lev.Font.Reset
Next lev
Next templ
End Sub