Webutil - Word Document

Question

I am having a template with Book Marks and Word tables that I have to filll using web util.
We have managed to fill out the data pertaining to the Book Marks but are stuck to push data in the the
word tables.
Currently the Word table doesnt have any bookmarks.
My question is how do we access the Word table and the cells in the table.
We are in a process o converting VB scripts which were carrying out this task.
Here is a snippet of theVB code which I am trying to convert.
How can I achieve this in Webutil?
l_counter = l_counter - 1
arrstrSplit = Split(l_s, ", ")
arrProdSplit = Split(l_p, "$")
For stnIndex = 0 to l_counter
rownum = sIndex + 1 'Index starts at 0, but table rows start at 1
set rngRange = oDocument.Tables(1).Rows(rownum).Cells(1).Range
rngRange.text = "BL " & arrstrSplit(stnIndex)
set rngRange = Nothing
set rngRange = oDocument.Tables(1).Rows(rownum).Cells(2).Range
rngRange.text = arrP(stnIndex)
set rngRange = Nothing
'Keep adding rows until there is no more data
if stnIndex <> l_counter then
oDocument.Tables(1).Rows.Add
end if
Next
Thanks..
Dhiren
Edited by: dkirtikar on Mar 22, 2010 2:15 PM

Answer 1

Ok... I went back and tested your code and by adding a "0" for the Range param, all pages of my 3 page doc printed.
-- create a new document
app := client_ole2.create_obj('word.application');
client_ole2.set_property(app, 'visible', 0);
docs := client_ole2.get_obj_property(app, 'documents');
args := client_ole2.create_arglist;
client_ole2.add_arg(args, p_filename);
client_ole2.add_arg(args, 0); -- confirm converion (false)
client_ole2.add_arg(args, 1); -- readonly (true)
client_ole2.invoke(docs, 'open', args);
client_ole2.destroy_arglist(args);
-- CHANGES BEGIN HERE
args := client_ole2.create_arglist;
client_ole2.add_arg(args, 0); -- 0 means background printing
client_ole2.add_arg(args, 0); -- 0 means no append
client_ole2.add_arg(args, 0); -- 0 means print all pages
client_ole2.invoke(app,'printout',args);
client_ole2.release_obj(docs);
client_ole2.destroy_arglist(args);
-- CHANGES END HERE
args := client_ole2.create_arglist;
client_ole2.add_arg(args, 0);
client_ole2.invoke(app,'quit', args);
client_ole2.destroy_arglist(args);
client_ole2.release_obj(app);This appears to be the syntax according to the MS docs:
PrintOut([Background], [Append], [Range], [OutputFileName], [From], [To], [Item], [Copies], [Pages], [PageType], [PrintToFile], [Collate], [FileName], [ActivePrinterMacGX], [ManualDuplexPrint], [PrintZoomColumn], [PrintZoomRow], [PrintZoomPaperWidth], [PrintZoomPaperHeight])
Edited by: Michael Ferrante on Oct 12, 2011 3:48 PM