I could be wrong, but I don't think .border returns true or false. Maybe something like this:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oChr As Range
For Each oChr In ActiveDocument.Range.Characters
If oChr.Borders.OutsideLineWidth <> 0 Then
oChr.InsertBefore ChrW(9660)
End If
Next
End Sub