помогите в word-е

[Arxangelname]

Народ помогите не знаю как можно делать отчеты в ворде для сохранения и распечатки

я тут кое что накалякал не поможете

procedure TForm1.Button1Click(Sender: TObject);
var
wa,wd: OleVariant;
s: string;
par: Paragraphs;
p: Paragraph;
begin
wa:= CreateOleObject('word.Application') ;
wa.visible:= true;
wd:= wa.documents.add;
wd.Range.insertbefore(Edit1.Text);

wd.Range.InsertBefore(Edit2.Text);
end;

только он тут подрят пишет а мне надо edit2 на другой строке

[Neeter]

Вот это - перевод каретки на новую строку:

wd.Selection.TypeText(#13#10);

[Arxangelname]

Сообщение от Neeter

Вот это - перевод каретки на новую строку:

wd.Selection.TypeText(#13#10);

Не работает но спасибо за ответ
Ошибка в selection

[psycho-coder]

Так попробуйте

wd.Range.InsertBefore(Edit2.Text + #13#10);

[Sasha_Smirnov]

Используй прямо в ворде код VBA (по альт-F11).

Пришли пример в соответствующую ветку форума (Microsoft Office Word).

[Neeter]

А, немного перепутал, selection есть только у wa, а не wd.

Наверно, надо сделать примерно вот так:

wd.Range.insertbefore(Edit1.Text + #13#10);

wd.Range.InsertAfter(Edit2.Text);

[Arxangelname]

Сообщение от Neeter

А, немного перепутал, selection есть только у wa, а не wd.

Наверно, надо сделать примерно вот так:

wd.Range.insertbefore(Edit1.Text + #13#10);

wd.Range.InsertAfter(Edit2.Text);

Спасибо большое теперь все работает но почему то он edit 2 или чтобы я не добавлял самое последнее всегда находится в верху строки а 1 в низу почему так получается