Formating tables

[Kanoknuan]

Hi all,

I have a rather large document (>6MB) with several tables in it.

The tables are not setup uniformly, and some tables start at (indent) the
half of the page.

I would like to setup ALL the tables in one pass at a fixed height, no
indents, no spacing in the cell's, and some other settings.

Can anybody give me a hint how to do this?

TIA

Kanoknuan.

 

[Doug Robbins - Word MVP]

Maybe a macro something along these lines:

Dim atable As Table, i As Long
For Each atable In ActiveDocument.Tables
With atable.Range
For i = 1 To .Paragraphs.Count
With .Paragraphs(i).Range.ParagraphFormat
.FirstLineIndent = 0
.LeftIndent = 0
.RightIndent = 0
.SpaceBefore = 0
.SpaceAfter = 0
.Alignment = wdAlignParagraphLeft
End With
Next i
End With
Next atable


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP