Programming Book Page Format Sample

[SQLUSA]

I am interested in your improvement suggestions.

Attached is a typical page.

Thanks.

[macropod]

I'd be inclined to have a table with feint/dashed cell borders and to have the $ values right-aligned.

[SQLUSA]

Thanks Paul.

The currency figures faithfully reflect how it comes out (left-justified as text) in the sql query tool.

I created a faint-line version of the table, attached.

Opinions please.

[macropod]

That looks more like HTML boxes. I think your publisher would recommend against it. Faint gridlines is all you need.

[SQLUSA]

Thanks Paul.

How do I do that?

My border selection is All, I changed the first line font in Style to 1/4 pt from 1/2 pt, can't detect if fainter.

I don't want broken line because not faithful.

[SQLUSA]

Is there a way for mass changing table borders? I have about 500 tables.

Thanks.

[macropod]

Try running the following macro. It makes all table borders a 0.25pt 20% gray line.

Sub DoTableBorders()
Application.ScreenUpdating = False
Dim SBar As Boolean, i As Long, j As Long, k As Long
With ActiveDocument
  k = .Tables.Count
  If k = 0 Then Exit Sub
  For i = 1 To k
    Application.StatusBar = "Processing Table " & i & " of " & k
    For j = 1 To 6
      With .Tables(i).Borders(j)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth025pt
        .Color = wdColorGray20
      End With
    Next
    DoEvents
  Next
End With
StatusBar = ""
Application.ScreenUpdating = True
End Sub

The macro reports its progress on the status bar.

[SQLUSA]

Just to be on the safe side, how do I run a macro? Thanks.

[macropod]

See: http://www.gmayor.com/installing_macro.htm

[SQLUSA]

Hi Paul,

The macro worked on around 200 tables, then errored out:

Run-time error 5843
One of the values passed to this method or property is out of range.

Actually it failed between two one-cell tables.

It made the grids fainter. They look better.

However, I can't use it unless it works for all.

[macropod]

If you can post a portion of the document containing the offending table, plus the tables either side of it, I might be able to diagnose the problem.

[SQLUSA]

Attached is the failure area from the document.

[macropod]

Insert:
On Error Resume Next
before:
With .Tables(i).Borders(j)