<div>
Looking at why graham posted I noted I overlooked the row one aspect ... But that is as easy as <br />
<br />
First table in the selection<br />
getparenttable(selection.T<wbr />ables(1)).<wbr />rows(1).se<wbr />lect<br />
<br />
specific table ... 1 in the activedocument<br />
getparenttable(activedocum<wbr />ent.Tables<wbr />(1)).rows(<wbr />1).select<br />
<br />
Note also my code will select the outermost table irrespective of how many tables are nested.<br />
<br />
Chris
</div>


<div>
Also please note that whilst the method I posted seems more complex this is because I explicitly chose to be more flexible in that I return the table so it can be processed in more ways rather than embedding it to make it use specific .... Which would be for example<br />
<br />
getparenttable<br />
<br />
Chris<br />

<pre><code class="code-10 nolinks" id="code-8224118"><span>Function getparenttable()</span>
<span>Dim outerTable As Table</span>
<span>Dim rng As Range</span>
<span>    </span>
<span>    Set outerTable = selection.tables(1)</span>
<span>    Do While outerTable.NestingLevel &gt; 1</span>
<span>        Set rng = outerTable.Range</span>
<span>        rng.Collapse Direction:=wdCollapseEnd</span>
<span>        rng.MoveEnd Unit:=wdCharacter, Count:=1</span>
<span>        Set outerTable = rng.Tables(1)</span>
<span>    Loop</span>
<span>    outerTable.rows(1).select</span>
<span></span>
<span>End Function</span>
</code></pre>
</div>


<div>
Sorry Chris, I didn't refresh. I see that we have collapsed in opposite directions. &nbsp;:&gt;)
</div>


<div>
Graham<br />
<br />
Usefully your post prompted me that I wasn't showing how to select the row. As for collapsing I tend to collapse in every direction .... Some might say I explode :)<br />
<br />
Chris
</div>


<div>
Both solutions sutied my requirements. Thanks guys!
</div>


<div>
<div class="content wysiwyg-content">
Hi Experts <br />
<br />
Quite a simple one, I have a nested table in word, when the cursor is in nested level 2, I require a macro to select the first row of nested level 1.<br />
<br />
Overalll what I want to achieve is the automation of a selected chart copied over to powerpoint, I have the code to select the chart index and to copy the chart over to powerpoint, problem is if the cursor is in anything above nested level 1, it will only take part of the table.<br />

</div>
</div>


Hi Experts 

Quite a simple one, I have a nested table in word, when the cursor is in nested level 2, I require a macro to select the first row of nested level 1.

Overalll what I want to achieve is the automation of a selected chart copied over to powerpoint, I have the code to select the chart index and to copy the chart over to powerpoint, problem is if the cursor is in anything above nested level 1, it will only take part of the table.


Word VBA select nested table

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.