Macro for formatting nested tables

Question

Hi There, 

 I'm hoping maybe someone can help me -  I am trying to Autofit to Window a series of nested tables via macro. 

Any help would be greatly appreciated.

Answer 1

Hi James,

If you are building one from scratch programmatically you have to build the host table first and when you do, set its AutoFitBehavior property to wdAutoFitWindow. Then insert the nested cells and let the AutoFitBehavior default.

Sample code below:

Sub NestedTable()

    Dim doc As Word.Document, rng As Word.Range, tbl As Word.Table

    Set doc = ActiveDocument

    doc.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _

        2, AutoFitBehavior:=wdAutoFitWindow

    Set tbl = Selection.Tables(1)

    Set rng = tbl.Rows(1).Cells(1).Range

    rng.Collapse Word.WdCollapseDirection.wdCollapseStart

    rng.Tables.Add rng, NumRows:=1, NumColumns:=1

End Sub

If this doesn't help, provide a sample of the code you are using and tell us what is happening that you want to correct.

Answer 2

Rather than using a macro, have you considered saving your table in Building Blocks?

I do not understand what you mean when you say "Autofit to Window."