G
Guest
Доброго времени суток!
Кто-нибудь владеет навыками экспорта данных в MS Word? У меня есть код, передающий данные таблицы в текстовый редактор Word97. Может быть у кого-либо найдется код, который будет совместим и с другими версиями Word – 2000/XP?
Кто-нибудь владеет навыками экспорта данных в MS Word? У меня есть код, передающий данные таблицы в текстовый редактор Word97. Может быть у кого-либо найдется код, который будет совместим и с другими версиями Word – 2000/XP?
Код:
procedure TFormOff.BtnWordClick(Sender: TObject);
var
Bookmark: TBookmark;
RangeW: Word97.Range;
v1: Variant;
ov1: OleVariant;
Row1: Word97.Row;
begin
WordDocument1.Activate;
WordDocument1.Range.Text := 'American Capitals from ' + Table1.TableName;
WordDocument1.Range.Font.Size := 14;
Table1.DisableControls;
try
Bookmark := Table1.GetBookmark;
try
Table1.First;
while not Table1.EOF do
begin
WordDocument1.Range.InsertParagraphAfter;
WordDocument1.Paragraphs.Last.Range.Text :=
Table1.FieldByName ('Name').AsString + #9 +
Table1.FieldByName ('Capital').AsString;
Table1.Next;
end;
finally
Table1.GotoBookmark (Bookmark);
Table1.FreeBookmark (Bookmark);
end;
finally
Table1.EnableControls;
end;
RangeW := WordDocument1.Content;
v1 := RangeW;
v1.ConvertToTable (#9, 19, 2);
Row1 := WordDocument1.Tables.Item(1).Rows.Get_First;
Row1.Range.Bold := 1;
Row1.Range.Font.Size := 30;
Row1.Range.InsertParagraphAfter;
ov1 := ' ';
Row1.ConvertToText (ov1);
end;