WD97: Sample VB Code to Delete Built-In Style

• Microsoft Word 97 for Windows

SUMMARY

This article describes how to delete built-in styles using Visual Basic for Applications.

MORE INFORMATION

When you delete a built-in style, the style is removed from the list of styles currently being used in the document. Every range within the document will receive the Normal style formatting once the built-in style is removed.

The following built-in styles cannot be deleted from a document:

   - Heading Styles 1-9

   - Normal Style(paragraph)

   - Normal Style(character)

   - Any style that has not been applied to a range within a document

   Run-time error '5122': Style name does not exist

The following Visual Basic for Applications macro determines whether the built-in style, Body Text Indent, is being used in the document and, if it is used, it removes the style.

   Sub DeleteBuiltInStyle()
      Dim odocStyle As Styles
      Set odocStyle = ActiveDocument.Styles
      If odocStyle(wdStyleBodyTextIndent).InUse Then
         odocStyle(wdStyleBodyTextIndent).Delete
      End If
   End Sub