Скачать: CL | DM;

Никак не могу разобраться с WordDocument, помогите!   Найти похожие ветки 

← →
lovres ©   (2002-09-03 13:39) [0]

Вот код:
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) [1]

Научите выделять куски документа, не зная их Range, а то у меня ко всему документу применяется.
Sorry за неинтересный вопрос, но я только учусь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c