I need to be able to open a document and then iterate through the tables that are contained within the document.
For each table, I need to alter the table rows based upon the contents of a dataset which will not be known until runtime.
In MS Word, "Tables" is a list within the document - what's the equivalent in WPTools?
Thanks,
=Bill
Hi,
the best is to do this:
var par : TParagraph;
par := WPRichText.FirstPar;
while par<>nil do
begin
if par.ParagraphType = wpIsTable then
begin
// do anythging with this table
// use the Cells, Cols and Rows array properties etc
end;
par := par.NextPar; // NOT ".next" since this
// would loop INTO the tables
end;Julian
Thanks Julian.
Next Question - How can I add rows to a table add runtime?
par.CreateRow(nil,true) //tried this but no row is added...??
Thanks,
=Bill
CreateRow works together with CreateTable. It does not simple duplicate a row but creates a working object to create one cell after each other.
See this demo:
var par, row : TParagraph;
par := WPRichText1.FindTable('NAME');
if par=nil then ShowMessage('Table "NAME" was not found') else
begin
// Get the second row from the end
row := par.Rows[par.RowCount-2];
// Duplicate it
row := row.RowAppend;
// and add some text. The properties and formulas have been automatically duplicated!
if row<>nil then
begin
row.Cols[0].SetText(IntToStr(row.RowNr));
row.Cols[2].SetText(IntToStr(Random(1000)+1));
row.Cols[3].SetText(IntToStr(Random(3)+1));
end;
end;This is from the calculation demo.
Can't compile your example -
Using the WPTools 5 demo, "RowAppend" and "FindTable" are undeclared identifiers??
They have been added to WPTools 5.09 - its not in the demo yet.
You see the effect in the multidemo in the second WPReporter demo (for calculation in tables)
The new WPTools 5.10 demo should be out next week.
You can also use
TParagraph.Duplicate
to create a new row.
RowAppend is implemented like this:
function TParagraph.RowAppend: TParagraph;
var par: TParagraph;
begin
if ParagraphType = wpIsTableRow then
par := Self
else par := Self.ParentRow;
if par <> nil then
Result := par.Duplicate(false, true)
else Result := nil;
if Result <> nil then NextPar := Result;
end;Julian Ziersch