View Single Post
  #2   Report Post  
Posted to microsoft.public.word.tables
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default how do i select and format all tables in a document at once

Try running the following macro:

Dim atable As Table
For Each atable In ActiveDocument.Tables
atable.AutoFitBehavior wdAutoFitContent
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

"j smith" j wrote in message
...
i have a huge document (several hundred pages) with hundreds of tables
exported from a statistical analysis program (SPSS). specifically, i want
to
make each table "autofit to contents", because this will reduce the size
of
my output by a large amount. i can't seem to find a way to select all
tables
at once; thus i cannot autofit all tables to contents at once.

thanks