Thread: Nested Tables
View Single Post
  #1   Report Post  
Posted to microsoft.public.word.tables
Ward Ward is offline
external usenet poster
 
Posts: 5
Default Nested Tables

Hi,
I work in VBA with nested tables. After nested table (a child- or sub-table)
is selected i do some table formatting to both nested table and parent table.
So in my code i want to Set tblParent to the parent table. But i have no idea
how to address the parent table directly. I know that i can move the range by
counting cells like:

Dim tblParent As Table, tblSelection As Table
Dim rng As Range

' with help of the used table.style name i checked if the Child table is
selected if so:
Set tblSelection = Selection.Range.Tables(1)
Set rng = tblSelection.Cell(1, 1).Range
rng.MoveEnd Unit:=wdCell, Count:=-1
Set tblParent = rng.Tables(1)

But I prefer to address the ParentTable direct. Do you have an idea how?

Thanks,
Ward