Formating tables
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
"Kanoknuan" wrote in message
...
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.
|