Word Macro for formatting and cleaning up garbled documents:

---------------------------------------------------------------------------------


Instructions for creating a Word 97 macro: 

1. Select the macro text below, between the Sub fixmail and End Sub lines 
   and copy it to the clipboard by pressing Ctrl C 
2. Select Tools, Macro, Macros 
3. Type fixmail in the Macro name field of the Macros dialog box, then 
   click Create. 
4. Press <Ctrl>-V to paste the macro text into the macro editor. 
5. Select File, Save Normal, then File, Close and File, Return to Microsoft 
   Word. 

Sub fixmail() 

      dowhat = wdFindStop 
      If Selection.Type = wdSelectionIP Then 
          Selection.HomeKey Unit:=wdStory 
          dowhat = wdFindContinue 
      End If 
      Selection.Find.ClearFormatting 
      Selection.Find.Replacement.ClearFormatting 

      With Selection.Find 
          .Text = "^p" 
          .Replacement.Text = "@@@" 
          .Forward = True 
          .Wrap = dowhat 
      End With 
      Selection.Find.Execute Replace:=wdReplaceAll 

      With Selection.Find 
          .Text = "@@@@@@" 
          .Replacement.Text = "^p^p" 
          .Forward = True 
          .Wrap = dowhat 
      End With 
      Selection.Find.Execute Replace:=wdReplaceAll 

      With Selection.Find 
          .Text = "@@@" 
          .Replacement.Text = " " 
          .Forward = True 
          .Wrap = dowhat 
      End With 
      Selection.Find.Execute Replace:=wdReplaceAll 

End Sub 

---------------------------------------------------------------------------------

Instruction for creating a Word 6 and 7 macro: 

1. Select the macro text below, between the Sub Main and End Sub lines and 
   copy it to the clipboard by pressing <Ctrl>-C 
2. Select Tools, Macro, 
3. Type fixmail in the Macro Name field of the Macro dialog box, and click 
   Create. 
4. Press <Ctrl>-V to paste the macro text into the macro. 
5. Select File, Close and click Yes when prompted to save the changes in 
   the macro. 

Sub MAIN 

dowhat = 1 
If SelType() = 2 Then 
          dowhat = 0 
End If 

EditReplace .Find = "^p", .Replace = "@@@", .Direction = 0, .ReplaceAll, 
.Wrap = dowhat 
EditReplace .Find = "@@@@@@", .Replace = "^p^p", .Direction = 0, 
.ReplaceAll, .Wrap = dowhat 
EditReplace .Find = "@@@", .Replace = " ", .Direction = 0, .ReplaceAll, 
.Wrap = dowhat 

End Sub