Macro to Draw Borders on All Tables

R

Rashid Khan

Hello All,
I am using Office XP and have a document with many tables with variable
number of rows in each table.

I wish to have a macro run on all the Tables in the document and do the
following:
1. Draw an outer border only on all the Tables.
2. Draw a single border above and a double border below on all the Last Rows
of all the Tables.

Can this be achieved through a macro.

TIA
 
R

Rashid Khan

Hello All,
further to my previous post.. By Double Border in the last row I meant
Double Underline... I do it manually now by selecting the last row and
pressing Ctrl+Shift+D
 
C

Chad DeMeyer

Rashid,

The following should do it.

Sub FormatMyTables()
Dim oTable As Table, oRow As Row i As Long
For Each oTable In ActiveDocument.Tables
With oTable
For i = -4 To -1 'numeric values of wdBorderType constants
With .Borders(i)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLine Width
.Color = Options.DefaultBorderColor
End With
Next i
With .Rows(.Rows.Count).Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
.Rows(.Rows.Count).Range.Font.Underline = wdUnderlineDouble
End With
Next oTable
End Sub

Regards,
Chad
 
R

Rashid Khan

Hi Chad,
Thanks for your reply. Your macro does not work on my document.. It gives
an error 5991 saying there are vertically merged cells in the table. I
cannot see with my naked eyes any merged cell.
Is there a way to find merged cells in a Table??
Rashid
 
C

Chad DeMeyer

Rashid,

It's usually better to code the Range object than the Selection object, but
cases like this is where I make an exception. Try replacing this block of
code:

With .Rows(.Rows.Count) ...
....Underline = wdUnderlineDouble

with this block of code:

oTable.Select
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.SelectRow
With Selection.Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
Selection.Font.Underline = wdUnderlineDouble

Regards,
Chad
 
R

Rashid Khan

Hi Chad
The macro runs perfectly... but it stopped on one of the table giving Run
Time error 4604...saying "The SelectRow method or property is not available
because some or all of the object does not refer to a table" and highlights
Selection.SelectRow.

Anyhow most of the table are done as I desired... I am just informing u
about the error. However for your information.. the code I am running on is
on a document which has been OCRed...

Thanks a lot for all the help
Rashid
 
Top