Sub PDF_Tidy()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ",^p"
.Replacement.Text = ", "
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = False
If .Found = True Then
.Execute Replace:=wdReplaceAll
End If
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([a-z])^13([a-z])"
.Replacement.Text = "\1 \2"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub