Working With Tables In Ms Word

This Content Component encountered an error
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
myApp.Documents.Add
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

0 comments

Oldest 

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:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close