Microsoft Office Forums - View Single Post - [Solved] Search for character border = true ?

gmaxey · 10-08-2014, 05:51 PM

Try:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oChr As Range
Dim oRng As Word.Range
  For Each oChr In ActiveDocument.Range.Characters
    If oChr.Borders.OutsideLineWidth <> 0 Then
      If oChr.Previous.Borders.OutsideLineWidth = 0 Then
         oChr.InsertBefore ChrW(9660)
       End If
     End If
  Next
End Sub