Creating a new Table in Word

[elziko]

I'm trying to create a new table in word from a DataTable (sourceTable):

objDoc.tables.A dd(Range:=objDo c.Range, NumRows:=source Table.Rows.Coun t,
NumColumns:=sou rceTable.Column s.Count, DefaultTableBeh avior:=1,
AutoFitBehavior :=0)

Where objDoc is a Word.Document. However I'm always given the error message
"The range cannot be deleted". But I'm not trying to delete a range. I'm
just trying to insert this Table at the caret position in the document.

I'd appreciate any help!

--

Cheers,

elziko

[Ken Tucker [MVP]]

Hi,

Try something like this. oWord is the word.applicatio n and odoc is
the word.document.

Dim rows As Integer = ds.Tables(0).Ro ws.Count

Dim columns As Integer = ds.Tables(0).Co lumns.Count

Dim qry As Word.Table 'query table object

Dim rTable As Word.Range = oWord.ActiveDoc ument.Content

qry = oDoc.Tables.Add (rTable, rows, columns)

For c = 1 To columns

For r = 1 To rows

Dim rngData As Word.Range = qry.Cell(r, c).Range

rngData.Text = ds.Tables(0).Ro ws(r - 1).Item(c - 1)

Next

Next

Ken

----------------

"elziko" <el****@NOTSPAM MINGyahoo.co.uk > wrote in message
news:40******** *************** @news.easynet.c o.uk...

I'm trying to create a new table in word from a DataTable (sourceTable):

objDoc.tables.A dd(Range:=objDo c.Range, NumRows:=source Table.Rows.Coun t,
NumColumns:=sou rceTable.Column s.Count, DefaultTableBeh avior:=1,
AutoFitBehavior :=0)

Where objDoc is a Word.Document. However I'm always given the error
message
"The range cannot be deleted". But I'm not trying to delete a range. I'm
just trying to insert this Table at the caret position in the document.

I'd appreciate any help!

--

Cheers,

elziko

[elziko]

Thanks very much for your reply!

For compatibility reasons I am actually using late binding, so here is your
code as I am using it (the code above and below '-------------------- is
what I have added (to just ensure that the table is added to a previously
opened Word instance if once already exists):

Dim objDoc As Object
Dim objWordApp As Object
Try
objWordApp = GetObject(, "Word.Applicati on")
Catch e As Exception
objWordApp = CreateObject("W ord.Application ")
objDoc = objWordApp.Docu ments.Add
End Try
objWordApp.Disp layAlerts = False
If objWordApp.Docu ments.Count < 1 Then
objWordApp.Docu ments.Add()
End If
objDoc = objWordApp.Docu ments(1)
'------------------------------------------------------------------

Dim rows As Integer = sourceTable.Row s.Count
Dim columns As Integer = sourceTable.Col umns.Count
Dim qry As Object
Dim rTable As Object = objWordApp.Acti veDocument.Cont ent
qry = objDoc.Tables.A dd(rTable, rows, columns) '***
For c As Integer = 1 To columns
For r As Integer = 1 To rows
Dim rngData As Object = qry.Cell(r, c).Range
rngData.Text = sourceTable.Row s(r - 1).Item(c - 1)
Next
Next

'------------------------------------------------------------------
objWordApp.Visi ble = True
objWordApp.Wind owState = 0
objWordApp.Acti vate()
objDoc = Nothing
objWordApp = Nothing

However, at runtime I still get the exception telling me that the range
cannot be deleted on the line shown with '***. Do you have any idea why this
may be happening for me and not for you?

--

Cheers,

elziko