Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Index Number for the Active Table.

Index Number for the Active Table

Written by Allen Wyatt (last updated February 3, 2023)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365


2

Mary is writing a macro that will split a table. Working on the active table isn't much of a problem, but she wants to copy the first row of the active table, then split the table, and finally paste the copied row to the first row of the new table created by the split. In order to do this properly, she wants to determine the index numbers used by Word to reference the two tables in the Tables collection. Mary wants to know how she can discover the index number for the active table (before the split) so she can simply increment that number to know the new index number for the table created after the split.

Word's object model relies on organizing individual objects into collections that can be accessed programmatically. This goes not only for tables, but for paragraphs, graphics, and a host of other objects. You can easily find the number of objects in a collection using the Count property. For instance, you could use the following to discover how many tables are in a document, as it returns the number of objects in the Tables collection:

iNumTables = ActiveDocument.Tables.Count

Finding which table is the current one is a bit trickier, but it can be done. The simplest way is to add a bookmark to the current table, and then examine all the tables in the document to see which table contains that bookmark. Once you find that out, you know which table is the current one, and you can delete the bookmark. The following macro implements these steps:

Sub FindTableNumber()
    Dim J As Integer
    Dim iTableNum As Integer
    Dim oTbl As Table

    Selection.Bookmarks.Add ("TempBM")
    For J = 1 To ActiveDocument.Tables.Count
        Set oTbl = ActiveDocument.Tables(J)
        oTbl.Select
        If Selection.Bookmarks.Exists("TempBM") Then
            iTableNum = J
            Exit For
        End If
    Next J
    ActiveDocument.Bookmarks("TempBM").Select
    ActiveDocument.Bookmarks("TempBM").Delete
    MsgBox "The current table is table " & iTableNum
End Sub

To use the macro, simply make sure that the insertion point is within the desired table. The macro can be easily adapted to a larger context, such as one where the table is split and otherwise manipulated.

There is another way to programmatically handle the underlying action that Mary wants to achieve, however—a method that doesn't require the use of index numbers for the Tables collection. You could copy the first row of the table and then split the table using a command similar to the following:

Selection.Tables(1).Split(5)

This command splits the table at row 5; you can easily change the splitting point by changing the row at which it is split. Then, you can move the insertion point to the beginning of the next table (the newly created one) by using the following command:

Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext

This command jumps to the beginning of the next table, and you can then paste the header row you copied earlier.

Note:

If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (10897) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Index Number for the Active Table.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Automatically Selecting Words

When editing a document, Word normally selects entire words as you use the mouse to select text. This tip explains why ...

Discover More

Setting Cell Width and Height Using the Keyboard

Hate to take your hands off the keyboard? Here are a couple of ways you can reject the mouse and still adjust the height ...

Discover More

Removing Author Information

Word automatically stores lots of author-related information within a document. Because this data is stored in several ...

Discover More

The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!

More WordTips (ribbon)

Keep Your Headings in View

Headings on a table are very important when it comes to understanding what is in the table. This tip explains an easy way ...

Discover More

Unwanted Numbering on Pasted Tables

When pasting text from another document or from the Web you can have unexpected characters sometimes show up. Many of ...

Discover More

Jumping to the Ends of Table Rows

Need to jump from one end of a table row to another? Word provides a couple of handy shortcuts that can make this type of ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 7 + 0?

2018-08-14 10:47:12

Andrew

Ben: Excellent idea.

Allen: Copying the first row before doing the split method doesn't really do away with the need to reference the second table--undoubtedly what Mary wants to do is copy the first row and after the split make the copied row a header row, which would require accessing the table.

Andy.


2018-08-13 13:16:34

Ben Senior

Hi Allen,

Finding the index number of the table is quite easy, you need just one line of code and a variable declaration:

Dim tableIndex as Integer
tableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

Best regards,

Ben


This Site

Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.

Videos
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.