Solved

Table Automation in MS Word

Posted on 2007-11-28
1
879 Views
Last Modified: 2008-02-01
Using an existing word document which is opened via Visual Basic in MS Access, how do I add or delete rows to an existing table. The existing table contains 5 rows and two columns.  The number of columns will not change just the number of rows
0
Comment
Question by:marcdtucker
1 Comment
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 125 total points
ID: 20368002
Dim wdTable as Word.Table
Dim wdDoc as Word.Document
Dim wdRow as Word.Row

Set wdTable = wdDoc.Tables(1)

'To add a Row
set WdRow = wdTable.Rows.Add


'To delete a row
wdTable.Rows(3).Delete
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Lync meeting or Lync conferencing is what many organizations would like to deploy to allow them save money. But companies are now giving up for various reasons, one of which is that they cannot join external meetings (non-federated company meetings)…
This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
In a previous video Micro Tutorial here at Experts Exchange (http://www.experts-exchange.com/videos/1358/How-to-get-a-free-trial-of-Office-365-with-the-Office-2016-desktop-applications.html), I explained how to get a free, one-month trial of Office …

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question