Search for character border = true ?

gmaxey · #1 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

n00bie-n00b · #2 10-08-2014, 05:59 PM

Awesome, you're amazing! it works perfectly thanks!

1 last thing, iv'e tried (but failed) to add on the code

.size=8
.colour= 49407
.superscript = true

(i keep screwing it up!)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
True Title Case for First Row of All Tables	Marrick13	Word VBA	14	12-11-2013 09:12 PM
Aligning Page Border with Table border without losing formatting :mad:	l39linden	Word Tables	5	10-04-2013 02:06 AM
Character based Search and Replace font size	anacond11	Word	2	08-08-2013 08:10 AM
How to change the color of Character Border?	tinfanide	Word	4	10-27-2012 06:35 AM
Macro not staying true	oluc	Word VBA	4	11-21-2010 08:10 AM