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 |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
How to add a table using vb
To get the tables the same, it might be easier to write all of the data to
the one table and then include code to locate the rows that have the AgencyOffice field in them and then split the table at that point (or add the first row of data for the new AgencyOffice and then split the table at that row, keeping track of the number of tables in the document and incrementing the table index by one each time it is split. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "accdev" wrote in message ... 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 |
Reply |
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 |