Double Line Border Around Cell Leaving A Gap

[billbell52]

Using Word2003

I have a problem with Word leaving a gap in a double line border
around a cell in a table (bottom right corner). This happens from VBA
and the gui.

Construct a table with 1 column and a few rows.
Select the top row (which is one cell)

From GUI add a double line border with 3/4 pt

Or you can run the following macro when you have the cell selected.

You will see a gap in the bottom right hand corner on the outside
line. Any ideas on how to get rid of it?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/15/2009 by bill
'
With Selection.Cells
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = 10849427
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = 10849427
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = 10849427
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = 10849427
End With
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleDouble
.DefaultBorderLineWidth = wdLineWidth075pt
.DefaultBorderColor = 10849427
End With
End Sub

 

[Doug Robbins - Word MVP]

I guess that is what you call a "feature". It does not occur of course if
the double line border is applied to the exterior of the whole table (or if
it is only a one row table)

The same feature occurs with the top right hand corner of the border applied
to a cell when the cell in the row above does not have a border on the right
hand side.

--
Hope this helps

Doug Robbins - Word MVP
Please reply only to the newsgroups unless you wish to avail yourself of my
services on a paid, professional basis.

 

[billbell52]

Thanks Doug.

At least I know this "feature" is not just me. Just need to explain
that to the client.