Populating Word Table with Data

Question

0.00/5 (No votes)

See more:

Hello,

Attempting to populate a word table via vb.net app (or programmatically) but having some difficulty. The data is being populated in the first column of the heading rather than the first row following the heading. Is there a way to determine where to start populating the table? Here's a sample of the code:

VB

Dim sData As String = ""

Do While Not .EOF
sData = sData & .Fields("transaction_date") & vbTab & .Fields("transaction_desc") & vbTab & .Fields("time_billed") & vbCr
Loop

moWordDoc.Tables.Item(iTableNum).Range.Text = sData
        moWordDoc.Tables.Item(iTableNum).Range.ConvertToTable(Separator:=WdTableFieldSeparator.wdSeparateByTabs, _
                                                              AutoFitBehavior:=WdAutoFitBehavior.wdAutoFitFixed, _
                                                              DefaultTableBehavior:=WdDefaultTableBehavior.wdWord8TableBehavior)

SQL

The data is taken from an ADO.Net Dataset and stored into an tab-delimited string. The string is assigned to a Word table's Range to be converted into the table.

Any help is appreciated

Posted 20-Aug-14 12:38pm

wrappingduke

Add a Solution

Comments

PhilLenoir 21-Aug-14 9:51am

Sorry, I don't have time to test a solution, but it looks to me that you are effectively trying to get Word to create a table in the first cell of an existing table. When I've populated a table in Word from a database, I've had an empty row, I put my insert point into the first cell of that row, write my first field, advance to the next cell, repeat for each field and add a row to the table for each subsequent record and repeat for each record. There may be a faster way, but I had to have provisional behaviour based on the data, so enumeration was the way to go.

If you don't already do this, I'd suggest recording a macro to mimic this behaviour and hand coding it to use your recordset.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

wrappingduke · Answer 1 · 2014-08-21T08:04:00

Thanks for the reply. It's appreciated. In the past, I was using the methodology you suggest, however, I ran into problems when the number of records in a DataSet exceeded the number of preset rows in the Word table, whereby rows had to added on the fly. This not only slowed the performance but also over-filled or over-ran other portions of the table. For example, the Word table has a section or rows for listing services or products and below those rows is the total amount for those products or services (like any other invoice). However, when additional rows have to be added, to list products, it overruns the total amount section. Here's a sample of the code:

VB

With moWordDoc.Tables.Item(iTableNum)
    Do While Not moAdoSql.EOF
        RowCnt = RowCnt + 1
                If RowCnt > .Rows.Count - iNumOfRowsBeforeInsert Then
                    .Rows.Add(.Rows.Item(RowCnt - 1))
                End If

                .Cell(RowCnt - 1, COL_date).Range.Text = VB6.Format(NullToString(moAdoSql.Fields("transaction_date")), gcFORMAT_ShortDate)
                .Cell(RowCnt - 1, COL_desc).Range.Text = NullToString(moAdoSql.Fields("transaction_desc"))
                .Cell(RowCnt - 1, COL_time).Range.Text = NullToString(moAdoSql.Fields("time_billed"))
moAdoSql.MoveNext()
            Loop
        End With

As a result, per Microsoft article, http://msdn.microsoft.com/en-us/library/aa537149(v=office.11).aspx, I'm trying to use the ConvertToTable method.

Any help is appreciated.

wrappingduke · Answer 2 · 2014-08-21T17:14:00

Solution 2

Hello,

The problem has been solved by updating the template files from 2003 and 2007 to 2010. My apologies for the hassle. Thanks again for all of the suggestions and input. It is appreciated.

Kind regards,

Posted 21-Aug-14 17:14pm