Programming Book Page Format Sample

SQLUSA · #1 07-30-2012, 06:33 AM

I am interested in your improvement suggestions.

Attached is a typical page.

Thanks.

macropod · #2 07-31-2012, 08:29 PM

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

SQLUSA · #3 08-01-2012, 01:02 AM

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 · #4 08-01-2012, 06:35 AM

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

SQLUSA · #5 08-01-2012, 07:48 AM

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 · #6 08-01-2012, 02:54 PM

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

Thanks.

macropod · #7 08-01-2012, 03:52 PM

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

Code:

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 · #8 08-01-2012, 05:40 PM

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

macropod · #9 08-01-2012, 05:49 PM

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

SQLUSA · #10 08-03-2012, 12:06 AM

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 · #11 08-03-2012, 12:16 AM

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 · #12 08-03-2012, 01:24 AM

Attached is the failure area from the document.

macropod · #13 08-03-2012, 02:15 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Page Header and Page Numbering for Technical Book	SQLUSA	Word	4	06-25-2012 09:53 AM
Indexing a book - page numbers?	asells23@yahoo.com	Word	1	03-17-2012 12:13 AM
Powerpoint Macro To Insert Objects Sample	lahuva	PowerPoint	0	07-06-2011 10:51 AM
sample xslt file	anil3b2	Word	0	08-02-2010 03:20 AM
Sample file for chart help	aligahk06	Excel	1	07-08-2010 02:45 AM