Hessel de Walle's Blog

The first script deletes all autotext entire from the normal.dotm Sub DeleteNormalAutoTextEntries()     'goal: delete all autotext entries from normal.dotm     Dim i As AutoTextEntry     'wissen autotextentries     For Each i In NormalTemplate.AutoTextEntries         i.Delete     Next End Sub The second script deletes all built in building block entries from the template  built-in building blocks.dotx Sub DeleteBuiltinBuildingblockentries()     'Word 2010 and up     'goal: delete all elements from built-in building blocks.dotx     On Error Resume Next 'necessary while deleting from the template causes errors     Dim objTemplate As Template     Dim i As Integer 'counter     Dim bb As Word.BuildingBlock      Set objTemplate = Templates(1) 'temp...