Hi

Try this, I've put it together very quickly so I may have overlooked
something but it should be a good starting point:

Public Sub ProportionallyResizeTable(ByVal tblToResize As Word.Table)
   Dim rowObj As Word.Row
   Dim celItem As Word.Cell
   Dim sngRowWidth As Single
   Dim sngPageWidth As Single
   Dim sngScale As Single

   ' Get the usable page width
   With tblToResize.Range.PageSetup
       sngPageWidth = .PageWidth - .LeftMargin - .RightMargin
   End With

   ' Calculate Row width
   For Each rowObj In tblToResize.Rows

       ' Calculate Row width
       sngRowWidth = 0
       For Each celItem In rowObj.Cells
           sngRowWidth = sngRowWidth + celItem.Width
       Next

       ' Calculate scaling factor
       sngScale = sngPageWidth / sngRowWidth

       ' Resize each Cell in the Row
       For Each celItem In rowObj.Cells
           celItem.Width = celItem.Width * sngScale
       Next
   Next
End Sub

It currently does not deal with nested tables, but I wrote it as a
procedure so that you can easily modify it to make it recursive.

To use it call it something like:

   ProportionallyResizeTable ActiveDocument.Tables(1)

It resizes a table to utilise the maximum available page width. However, if
the left edge of the table is outside the left border it does not adjust
for this or take it into accout (I said it was simple!)

HTH + Cheers = Peter

"=?Utf-8?B?YnVuY3M=?=" <tikouka@ihug.co.nz> wrote in
news:CFBE63D7-1B35-4D4E-A841-37A6064A9A1F@microsoft.com: