WD: WordBasic Macro to Test for an Existing Style Name

ID: Q117826

The information in this article applies to:

Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
Microsoft Word for Windows 95, versions 7.0, 7.0a
Microsoft Word for the Macintosh, versions 6.0, 6.0.1, 6.0.1a

SUMMARY

When you write macros in Microsoft Word, you may need to test for the existence of a style name before modifying or deleting the style. If your macro does not check for the existence of a style before attempting to modify or delete the style, the FormatStyle command may return the following error message:

This style name does not exist.

MORE INFORMATION

The following WordBasic macro tests for an existing style named "Test." If the style exists, Word deletes the style.


   Sub MAIN
   sStyleName$ = "Test"
   If StyleDesc$(sStyleName$) = "" Then
    MsgBox sStyleName$ + " does not exist", "Style Name"
   Else
    FormatStyle .Name = sStyleName$, .Delete
   End If
   End Sub

For more information about how to do this in Word 97, please see the following articles in the Microsoft Knowledge Base:

Q158847 Word 97: Macro To Test For An Existing Style Name

REFERENCES

"Microsoft Word Developer's Kit," version 6.0, pages 706-707

Additional query words: WordBasic delete style FormatStyle

Keywords : kberrmsg kbmacro kbprg kbdtacode kbmacroexample winword macword word6 word7 word95
Version : MACINTOSH:6.0,6.0.1,6.0.1a; WINDOWS:6.0,6.0a,6.0c,7.0,7.0a
Platform : MACINTOSH WINDOWS
Issue type : kbhowto