Программирование на С++, Delphi
DELPHI: Создать из Delphi документ Word
Добавить файл в меню Пуск/Документы
Для создания документа Microsoft
Word из Delphi нужно создать переменную,
ассоциированную с Word. Если Word еще не открыт, его нужно открыть. После этого
с ним можно работать примерно как в Бейсике, для изучения которого я в Word-е
создаю макросы и изучаю их код.
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
try
MsWord := GetActiveOleObject('Word.Application');
except
try
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
except
Exception.Create('Error');
end;
end;
MSWord.Documents.Add;
MSWord.Selection.Font.Size := 12;
MSWord.Selection.TypeText('Текст');
MSWord.Selection.Font.Bold := true;
MSWord.Selection.TypeText(#13#10'new');
MSWord.ActiveDocument.SaveAs('C:\ex.doc');
end;
Добавить файл в меню
Пуск/Документы
Эта программа добавляет файл "File.txt" в
"Пуск/Документы".
uses ShlOBJ;
procedure TForm1.Button1Click(Sender: TObject);
begin
SHAddToRecentDocs(SHARD_PATH, PChar('File.txt'));
end;
Программирование на С++, Delphi