Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Никак не могу разобраться с WordDocument, помогите! [D6, WinXP]

lovres © (2002-09-03 13:39:00)
Вот код:
procedure TFive_in_One.SpeedButton2Click(Sender: TObject);
var
v, vsave, a, b, vstart, vend, i, vcol, vt, vnt, vdt, vv:oleVariant;
MyRange:word2000.range;

begin
vt:=GetCurrentDir+"\отчёт\template.doc";
WordApplication1.Documents.Add(vt,emptyparam,emptyparam,emptyparam);
MyRange:=WD1.Content;
v:=wdCollapseStart;
MyRange.Collapse(v);
myrange.Select;
i:="Дата: "+datetimetostr(date);
WD1.ActiveWindow.Selection.ParagraphFormat.Alignment:= wdAlignParagraphcenter;
myrange.InsertAfter(i);
//фрагмент 1
v:=wdCollapseEnd;
MyRange.Collapse(v);
myrange.InsertAfter(#13);
myrange.InsertAfter(#13);
myrange.InsertAfter("la-la-la ");
myrange.InsertAfter(imyauser);
myrange.InsertAfter(#13);
//фрагмент 2
MyRange.Collapse(v);
DBChart1.CopyToClipboardBitmap;
myrange.paste;
myrange.InsertAfter(#13);
myrange.InsertAfter(#13);
//фрагмент 3
MyRange.Collapse(v);
myrange.InsertAfter("epilog");

vsave:=GetCurrentDir+"\отчёты\"+imyauser+datetimetostr(date)+".doc";
WD1.SaveAs(vsave);
WD1.Close;
end;
какие-то косяки с добавлением документа(выделено)
Вопросы:
1.Как очистить документ?
2.Я вставил в документ текст переменной длины и как после этого выделить остальную часть документа, чтобы можно было изменять атрибуты шрифта только для этого фрагмента.

lovres (2002-09-05 12:21:00) [1]
Научите выделять куски документа, не зная их Range, а то у меня ко всему документу применяется.
Sorry за неинтересный вопрос, но я только учусь.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »