using mutiple tables in word 1

[Dashley]

I'm openning an word doc via vb.net. I want to have two tables display with a variety of data.

I can get one table to display but the other one wont show up.

After I got oTable1 to appear in the doc I cut an pasted the code and changed the name for otable1 to otable2 hopeing the 2nd table would show up. No such luck.
I've been looking at the MSDN library but with no luck.
This is my first shot at word so anyhelp would be appreciated.

Dan

        Dim oWord As Word.Application
        Dim oDoc As New Word.Document
        Dim oTable1 As Word.Table
        Dim oTable2 As Word.Table

        Try

            oWord = CreateObject("Word.Application")
            oWord.Visible = True
            oDoc = oWord.Documents.Add

            oTable1 = oDoc.Content.Tables.Add(oDoc.Range, NumRows:=4, NumColumns:=4)
            oTable1.Cell(1, 1).Range.Text = "Patient Name"
            oTable1.Cell(1, 2).Range.Text = "Dans table1"
            oTable1.Range.InsertParagraphAfter()

            oTable2 = oDoc.Content.Tables.Add(oDoc.Range, NumRows:=1, NumColumns:=6)
            oTable2.Cell(1, 1).Range.Text = "Patient Name"
            oTable2.Cell(1, 2).Range.Text = "Dans table2"
            oTable2.Range.InsertParagraphAfter()

        Catch ex As Exception
            Response.Write(ex.Message)
        End Try

 

[fumei]

1. You are not using Set for the objects.

2. BOTH tables creation instructions are using the SAME range - oDoc.Range

Try something like:

Dim oWord As Word.Application
Dim oDoc As New Word.Document
Dim oTable1 As Word.Table
Dim oTable2 As Word.Table
Dim r As Word.Range

oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
Set r = oDoc.Range

Set oTable1 = ActiveDocument.Tables.Add([b]r[/b], NumRows:=4, _
     NumColumns:=4)
    oTable1.Cell(1, 1).Range.Text = "Patient Name"
    oTable1.Cell(1, 2).Range.Text = "Dans table1"

With r
    .Collapse Direction:=wdCollapseEnd
    .Text = vbCrLf
    .Collapse Direction:=wdCollapseEnd
End With

Set oTable2 = oDoc.Content.Tables.Add([b]r[/b], NumRows:=1, _
     NumColumns:=6)
    oTable2.Cell(1, 1).Range.Text = "Patient Name"
    oTable2.Cell(1, 2).Range.Text = "Dans table2"

Set r = Nothing           
Set oTable1 = Nothing
Set oTable2 = Nothing
Set oDoc = Nothing

This uses a Range object of the new document, makes a table using that Range, collapses it, puts in a paragraph, collapses again, puts in the second table. The second table insertion range ("r") is different from the first.

BTW: if you were using Styles, you would not need that "spacing" paragraph.

Gerry
My paintings and sculpture

 

[Dashley]

Gerry,

Thank you very much. I apreciate it and the explainations.
Like I said this is my forst shot at word so I have a learning cure.
Do you know any good sites ?

Thanks again,

Dan

 

[Dashley]

Using the code you gave me I get a
" Name wdCollapseEnd not declared " notice.

I have "Imports Word" at the top of my form.

The only way I can make this goe away is if I use

"Imports Word.WdCollapseDirection"

I have Word 9.0 Obj Library added as a reference.

Could this be a version problem?

Thanks

Dan



With r
.Collapse(Direction:=wdCollapseEnd)
.Text = vbCrLf
.Collapse(Direction:=wdCollapseEnd)
End With

 

[PHV]

Seems you use VB.Net.
In VBA, referencing the Word library suffices to get ALL enumerated constants used by the model.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Dashley]

Yes I'm using .net 2005. It should work just referencing the WORD library.

If I just say imports Word

I get the error.

I have to use imports WORD.WdCollapseDirection

to use the wdCollapseEnd

 

[PHV]

I just said you that we are in the VBA forum, so you get a VBA answer.
You may try to post in forum796

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Dashley]

Ha Ok. I thought it was a VBA question since it involved Word.

Thanks

 

[fumei]

Ummmm, you are not strictly using VBA now are you? VBA is invoked FROM Word. You are using the library, but how .Net does that I am not familiar with. You state that it should work just referencing the Word library, but that is clearly not the case.

VBA, as PH mentions, does get ALL the enum constants.

Glad you got it working though.

Gerry
My paintings and sculpture

 

[Dashley]

Well there always the possibility I don't have a clue as to what I'm doing HA.

I'm using vb.net 2005. I have a webpage with a button (fires an onclick event) on it. When the button is clicked I'm opening a Word document and populating it from a Database (my first test sample is working).

Isn't that VBA or do I belong in different arena.

Thanks

Dan