Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Вниз
Никак не могу разобраться с 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c