Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
How to add a table using vb
While in Access 2003 I've been generating data into a word (2003) template.
Up to now there has been only one table which is entered on the template. Now my user wants me to break down his data by an AgencyOffice field and have each office in their own table. There will be some totals after each group. However, I'm not concerned with the totaling in this question. Nor am I concerned about how to determine when to create a new table by keeping track of the AgencyOffice field. What I need to know is how I go about creating a new table with the attributes of the table that is already there. Or maybe there is another way to do this? By the way, I usually know enough about Access vb to do what I need to do, but I'm pretty ignorant about Word vb. I've only entered two fields below (there are several) but this is essentially what I'm currently doing in Access. Dim db As Database Set db = DBEngine.Workspaces(0).Databases(0) Dim wordobj As Object Dim sTemplatename As String sTemplatename = pubTemplateFolder & "AgencyBill.doc" Set wrdobj = CreateObject("Word.application") wrdobj.Documents.Add sTemplatename Set rs = CurrentDb.OpenRecordset("WDBillData") rs.MoveLast rs.MoveFirst ' Write details info into table in Word Document For inti = 0 To rs.RecordCount - 1 wrdobj.ActiveDocument.Tables(1).Cell(inti + 1, 2).Range = Trim$(Left(rs.FullName.Value, 24) & "") wrdobj.ActiveDocument.Tables(1).Cell(inti + 1, 4).Range = Format(rs.amount.Value, "##0.00") & "" rs.MoveNext If rs.EOF Then Exit For wrdobj.ActiveDocument.Tables(1).Rows.Add Next rs.Close |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Form with table - Extend length of table as needed by user's input | Microsoft Word Help | |||
Sort text in table - ascending results drop to bottom of table! | Microsoft Word Help | |||
Need macro to locate table uniquely, insert blank row and date and end table | Tables | |||
Toolbar option available for TABLE>INSERT>TABLE to enclose text into a table? | New Users | |||
|
Tables |