>someone posted a javascript page to do this a few months ago, to
>lbo-talk. perhaps he can repost a pointer to it. if its lost, we
>can rewrite it...
>
>you get a web form, cut and paste your text into it, click submit
>and you get a properly formatted version.
>
> --ravi
yeah, it was Mark McEahern. It was sometimes down, so I put it up at our site. http://www.interpactinc.com/DeGarbleIt.html
Doug, you can just save the page and put it all up at LBO, too. Or, I can just send you the files to import into your HTML editor. Also, Chip mentioned the Word macro. Here are instructions:
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