Working With Tables In Ms Word

This simply explains hot to open a word document, add a 3 by 3 table and write
some text to it
Dim myApp As Variant, tables As Variant,adoc As Variant
Dim myrange As Variant, table As Variant, tablecell As Variant
Set myApp = CreateObject("Word.Application")
myApp.Visible = True
Set adoc = myApp.Documents("Document1")
Set myrange = adoc.Range(0,0)
Set table = adoc.Tables.Add (myrange, 3 , 3)
With Table
.Cell(1,1).Range.InsertAfter "First cell"
.Cell(Table.Rows.Count, Table.Columns.Count).Range.InsertAfter "Last Cell"
End With
This was first published in November 2000

Dig deeper on Domino Resources



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...