如何操作WORD(100分)

在DELPHI中，如何将文本文件的内容显示在WORD的表格或图形中。表格的列数是变化的。

用olevariant来调，不管是不是变化的，用宏替换就可以了。

WORD是COM支撑的.DELPHI里有自带的例子!

实现试卷的头部表格
ListBox1：题型
tixi：中文大写题号
.....
DefaultTableBehavior := wdWord9TableBehavior;
AutoFitBehavior := wdAutoFitContent;
Pars.Add(EmptyParam);
n := n + 1;
ARange := Pars.Item.Range;
doc.Tables.Add(aRange, 2, 4 + .ListBox1.Items.Count, DefaultTableBehavior, AutoFitBehavior);
for m := 2 to ListBox1.Items.Count + 1 do
begin
Doc.Tables.Item(1).Cell(1, m).Width := 26;
Doc.Tables.Item(1).Cell(2, m).Width := 26;
end;
for m := 1 to ListBox1.Items.Count do
Doc.Tables.Item(1).Cell(1, 1 + m).Range.InsertAfter(trim(tixi[m]));
Doc.Tables.Item(1).Cell(1, 1).Range.InsertAfter('题号');
ARange.font.Spacing := 0;
Doc.Tables.Item(1).Cell(2, 1).Range.InsertAfter('得分');
Doc.Tables.Item(1).Cell(1, ListBox1.Items.Count + 2).Range.InsertAfter('总 分');
Doc.Tables.Item(1).Cell(1, ListBox1.Items.Count + 3).Range.InsertAfter('合分人');
Doc.Tables.Item(1).Cell(1, ListBox1.Items.Count + 4).Range.InsertAfter('复核人');
Doc.Tables.Item(1).Rows.Alignment := wdAlignRowCenter;
ARange.font.size := 10.5;
.....