Macro to Change Bullets to Hyphen (or Tab) + Space

ID: Q118821

The information in this article applies to:

Microsoft Word for Windows, versions 6.0, 6.0a
Microsoft Windows 3.1

SUMMARY

Documents containing bulleted lists, created by choosing Bullets And Numbering from the Format menu, will lose their bullets when the document is saved as Text Only.

The following macro locates bullets within your document and removes the bullet formatting from the paragraph. After the bullet is removed, a hyphen ("-") followed by a space is added at the beginning of the paragraph.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.


Sub MAIN

StartOfDocument
While CmpBookmarks("\sel", "\endofdoc")
 If FormatBulletDefault() = 1 Then
  FormatBulletDefault 0
  StartOfLine
  Insert "-"
  Insert Chr$(32)  'insert a space
 EndIf
 ParaDown
Wend

End Sub

If you would rather insert a tab after the hyphen, replace the Insert Chr$(32) instruction with Insert Chr$(9).

Additional query words: 6.0 Bullet Text Search Macro word6 FormatBulletDefault While dash character winword

Keywords :
Version : WINDOWS:3.1,6.0,6.0a
Platform : WINDOWS
Issue type :