Открытие документа Word, запуск Word в Delphi
1 2 3 4 5 6 7 8 9 10 |
procedure TForm1.Button1Click(Sender: TObject); var Word: variant; begin try Word := CreateOleObject('Word.Application'); except ShowMessage('Не могу запустить Microsoft Word'); end; Word.Visible := True; end; |
Как создать новый документ Word в Delphi:
1 2 |
//Создание нового документа: Word.Documents.Add; |
Как открыть существующий документ Word в Delphi:
1 2 |
//Открытие существующего документа: Word.Documents.Open('c:\test.doc'); |
Как добавить текст в документ Word в Delphi:
1 2 |
//Добавление текста в документ: Word.Selection.TypeText(Text:='Новый текст'); |
Как добавить абзац Word в Delphi:
1 2 |
//Добавление абзаца: Word.Selection.TypeParagraph; |
Как закрыть документ Word в Delphi:
1 2 |
//Закрытие документа Word.Quit; |