Sub FReditListTidy()
' Paul Beverley - Version 16.01.25
' Tidies up a FRedit list

Set rng = ActiveDocument.Content

If Len(rng) - Len(Replace(rng, ChrW(124), "")) < 5 Then
  Beep
  myResponse = MsgBox("Is this file a FRedit list?! Shall I tidy it?", _
     vbQuestion + vbYesNoCancel, "FReditListTidy")
  If myResponse <> vbYes Then Exit Sub
End If
myTest = rng
myTest = Replace(myTest, " ", "")
If InStr(rng, "|FRedit") = 0 Then rng.InsertBefore _
     Text:="| FRedit" & vbCr & vbCr
For i = ActiveDocument.Paragraphs.count To 1 Step -1
  myText = ActiveDocument.Paragraphs(i).Range.Text
  If Len(myText) > 3 And InStr(myText, ChrW(124)) = 0 Then _
       ActiveDocument.Paragraphs(i).Range.Delete
  DoEvents
Next i
End Sub