Hi all

I have created an app which parses strings and creates a Word document

The following section describes creating a table


var
  S: Selection;
  T: Table;

begin
...
    T := Doc.Tables.Add(S.Range, 1, 3);
    T.Cell(1, 1).Range.Text := 'January';
    T.Cell(1, 2).Range.Text := 'February';
    T.Cell(1, 3).Range.Text := 'March';
    T.Columns.Width := 72; // in points
...

Creating the table works fine however I now wish to add a new paragraph
below the table

...
    WordFont1.Size := 12;
    WordFont1.Name := 'Arial';
    WordFont1.Bold := integer(True);

    S.TypeParagraph;
    S.TypeText('Some text');

This paragraph appears inside the table created above.

I Use the following components: TwordFont, TWordParagraphFormat,
TWordDocument, TWordApplication

1. How do I exit the table to add additional text below the table
2. How do I set the inividual column widths

Regards Cao



-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]




SPONSORED LINKS
C programming language Computer programming languages Java programming language
The c programming language C programming language Concept of programming language


YAHOO! GROUPS LINKS




Reply via email to