O
OlgaP
I have several tables nested within a table. How do I find an index of the nested table.
C
Cindy M -WordMVP-
Hi =?Utf-8?B?T2xnYVA=?=,
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the
newsgroup and not by e-mail
What kind of index?
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the
newsgroup and not by e-mail
D
Doug Robbins - Word MVP
Can you get by with Selection.Tables(1) That will give a reference to the
table in which the selection is located.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
table in which the selection is located.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
of the tables, I need to know which table he/she is in.OlgaP said:
O
OlgaP
Hi Doug! I understand that I can get a reference to the selected table. I need to know what is the number of this table. If there are 5 nested tables inside the main table, I need to know what is the number of the table that the user is in, is it one, two, three, four or five. Thanks for your help.
D
Doug Robbins - Word MVP
Based on my attempts, I don't think that you can.
It doesn't matter how many nested tables there are, if you use
ActiveDocument.Tables.Count, it will only return the number of "un-nested"
tables in the document.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
inside the main table, I need to know what is the number of the table that
the user is in, is it one, two, three, four or five. Thanks for your help.
It doesn't matter how many nested tables there are, if you use
ActiveDocument.Tables.Count, it will only return the number of "un-nested"
tables in the document.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
need to know what is the number of this table. If there are 5 nested tablesOlgaP said:
inside the main table, I need to know what is the number of the table that
the user is in, is it one, two, three, four or five. Thanks for your help.
C
Cindy M -WordMVP-
Hi =?Utf-8?B?T2xnYVA=?=,
Selection.Tables(1).NestingLevel
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail
Try it using this:
Selection.Tables(1).NestingLevel
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail
D
Doug Robbins - Word MVP
But if you have two tables nested in different cells of the base table, it
will not tell you in which one the selection is located. Both of the nested
tables have a NestingLevel of 2
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
the main table, I need to know what is the number of the table that the user
is in, is it one, two, three, four or five.
will not tell you in which one the selection is located. Both of the nested
tables have a NestingLevel of 2
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
know what is the number of this table. If there are 5 nested tables insideCindy M -WordMVP- said:
the main table, I need to know what is the number of the table that the user
is in, is it one, two, three, four or five.
reply in the newsgroup and not by e-mail
C
Cindy M -WordMVP-
Hi Doug,
asking for the nesting level. As to getting the "index" of the outermost
table...
You really can't get that information directly, even in non-nested tables, can
you? But this works:
Sub MoveToTopLevelTable()
Dim l As Long
Dim rng As Word.Range
Dim nrTables As Long
Dim rngTables As Word.Range
If Selection.Information(wdWithInTable) Then
l = Selection.Tables(1).NestingLevel
Set rng = Selection.Tables(1).Range
Do While l > 1
rng.Collapse wdCollapseEnd
l = rng.Tables(1).NestingLevel
Set rng = rng.Tables(1).Range
Loop
Set rngTables = ActiveDocument.Range
rngTables.End = rng.End
Debug.Print "The selection is nesting in level " & _
CStr(Selection.Tables(1).NestingLevel) & " in table " _
& rngTables.Tables.Count & " of the document."
End If
End Sub
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail
That's not how I understood the original question; I thought the user was
asking for the nesting level. As to getting the "index" of the outermost
table...
You really can't get that information directly, even in non-nested tables, can
you? But this works:
Sub MoveToTopLevelTable()
Dim l As Long
Dim rng As Word.Range
Dim nrTables As Long
Dim rngTables As Word.Range
If Selection.Information(wdWithInTable) Then
l = Selection.Tables(1).NestingLevel
Set rng = Selection.Tables(1).Range
Do While l > 1
rng.Collapse wdCollapseEnd
l = rng.Tables(1).NestingLevel
Set rng = rng.Tables(1).Range
Loop
Set rngTables = ActiveDocument.Range
rngTables.End = rng.End
Debug.Print "The selection is nesting in level " & _
CStr(Selection.Tables(1).NestingLevel) & " in table " _
& rngTables.Tables.Count & " of the document."
End If
End Sub
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail
D
Doug Robbins - Word MVP
Hi Cindy,
I guess I am not sure what the OP meant by Index.
While I can think of situations where you might want a table with
NestingLevel of 2, I can't really think of a reasonable use for one nested
deeper than that. I can however think of a situation where you may want
multiple tables with a Nesting Level of 2 in a single table e.g. using a
table to maintain a side by side translation of a document containing
tables.
Here's another method of doing what your macro does:
Dim i As Long, j As Long
If Selection.Information(wdWithInTable) Then
j = Selection.Tables(1).NestingLevel
For i = 1 To ActiveDocument.Tables.Count
If Selection.InRange(ActiveDocument.Tables(i).Range) Then
MsgBox "The selection is in a table with Nesting Level " & j & "
in Table " & i & " in the document."
Exit For
End If
Next i
End If
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
I guess I am not sure what the OP meant by Index.
While I can think of situations where you might want a table with
NestingLevel of 2, I can't really think of a reasonable use for one nested
deeper than that. I can however think of a situation where you may want
multiple tables with a Nesting Level of 2 in a single table e.g. using a
table to maintain a side by side translation of a document containing
tables.
Here's another method of doing what your macro does:
Dim i As Long, j As Long
If Selection.Information(wdWithInTable) Then
j = Selection.Tables(1).NestingLevel
For i = 1 To ActiveDocument.Tables.Count
If Selection.InRange(ActiveDocument.Tables(i).Range) Then
MsgBox "The selection is in a table with Nesting Level " & j & "
in Table " & i & " in the document."
Exit For
End If
Next i
End If
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
C
Cindy M -WordMVP-
Hi =?Utf-8?B?T2xnYVA=?=,
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail
I think both of us have shown you how that works. I know I did in my response to Doug, anyway...
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail