Removing Extra Paragraph Marks with WordBasic

There may be times when you are working with a document when you have a need to remove extra paragraph marks. This is particularly true if you are working with an ASCII file or a file that may have originally been formatted with another word processor. This process of manually removing extra paragraph marks can be very time consuming.

If you find yourself in this situation, you may find this macro of interest. It removes extra paragraph marks from a document. When it is completed, there should not be even two paragraph marks in a row in your document.

Sub MAIN
EditFindClearFormatting
EditReplaceClearFormatting
StartOfDocument
EditFind .Find = "^p^p", .WholeWord = 0, .MatchCase = 0, \
.Direction = 1, .Format = 0
While EditFindFound()
    CharRight
    EditClear - 1
    CharLeft 2
    RepeatFind
Wend
End Sub