adding rows into word document

**HarryKlein** · 07-17-2011, 11:30 AM

Hello

Could anybody help me, how to add rows to an existing word-table from excel vba and how to put value enter into it?

Maybe it it easier to create a completely new table, but number of the rows is not constant, it depends of the content of table where I want to copy these data from.

many thanks

**snb** · 07-17-2011, 11:37 AM

Use Word's builtin importfacilities.

Sub snb()
  with getobject("E:\OF\import.doc")
    .Content.InsertFile "E:\OF\adressen 001.xls", "A1:K20"
    .save
  end with
end sub

You can also link an Excel file to a Word document so that it will be updated automatically.

If the Word document doesn't exist already:

  With CreateObject("Word.document")
    .Content.InsertFile "E:\OF\adressen 001.xls", "A1:K20"
    .SaveAs "E:\OF\import 001.doc"
    .Close
  End With

**HarryKlein** · 07-17-2011, 12:28 PM

Thanks.
I think, I didn't specify my question carefully enough.
What I want to do is to complete a word document based on a dot, which has different tables.
The values are coming from an excel table, the target table will have at least one row, but maybe more.
The first row of the table can be completed with bookmarks or docvariables, but I have to solve, that in case the mastersheet has more rows concerning the given document, then these will be also in the word in new rows in the same table.
I do not have to copy the entire row from the excel sheet, but a few cells only.

Thank you

**barryleajo** · 07-17-2011, 01:57 PM

Hi Harry
I used the following in an earlier project .. it may help some

    TgtRepWdDoc.Tables(1).Rows(4).Select
    objWord.Selection.InsertRowsAbove 2

This code snippet inserts two rows above row 4 in an existing table, Table 1 in the document object TgtRepWdDoc.
Note that "objWord" is the object instance of Word running within Excel VBA.
You need to specify this to qualify the keyword "Selection" otherwise Excel complains.
There is also an "InsertRowsBelow" method.

And to add text (e.g. to row 4 and col 3; and then two cells to the right) ..

    TgtRepWdDoc.Tables(1).Cell(Row:=4, Column:=3).Range.Select
    objWord.Selection.TypeText Text:="Text"
    objWord.Selection.MoveRight unit:=wdCell, Count:=2
    objWord.Selection.TypeText Text:="Text Two"

Hope this gets you going
Barry

**HarryKlein** · 07-17-2011, 02:38 PM

Many thanks, this works.
I found another way to add text into these word cells, maybe it is useful to share it with you as well.

Sub test()
                    
            Set objword = CreateObject("word.application")
            Set docword = objword.documents.Add
            With objword
            .Visible = True
            End With
            For i = 1 To 5
              docword.Tables(1).Select
              objword.Selection.insertrowsabove 1
              docword.Range.Tables(1).Cell(1, 1).Range = i
            Next
End Sub

thanks again

**snb** · 07-17-2011, 05:07 PM

I don't believe this code works:
You can't select a table that hasn't been been inserted.

And if you can you should avoid using 'select' in VBA.

Your code contradicts your earlier assertion that you have to expand an existing table.

You didn't learn from my earlier code that

Set objword = CreateObject("word.application")
Set docword = objword.documents.Add

is unnecessarily complicated and can re replaced by:

With creatobject("Word.document")

**HarryKlein** · 07-18-2011, 02:38 AM

Yes, you're right, select should be avoided, but currently I don't see other option..
It does what I want it to do.
I don't see, why do you think that it contradicts with expansion of an existing table?

**barryleajo** · 07-17-2011, 06:24 PM

Thanks Harry
...obvious when you point it out ...
Glad you're sorted now.
By the way I have found that within your loop:

docword.Range.Tables(1).Cell(1, 1).Range = i

can be restated as:

docword.Tables(1).Cell(1, 1) = i

I think Range in this context refers to a portion of the document.
Since you are in a Table then this doesn't apply, presumably because the table has already been positioned within the document?
If you are all done on this then mark your thread as Solved?