Microsoft KB Archive/118821

{|
 * width="100%"|

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

 * }

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 :

Issue type :

Technology :