Yustas911, Не особо работал с Вордом, но что-то помню...
Создать объект Word:
| Код |
function MSWordCreateApplication: IWordApplication;
begin
Result := CreateOleObject('Word.Application') as IWordApplication;
end;
|
Открыть документ:
| Код |
function MSWordOpenDocument(const AWordApp: IWordApplication; AFileName: OleVariant): IWordDocument;
begin
Result := nil;
if Assigned(AWordApp) and (not VarIsNull(AFileName)) and VarIsStr(AFileName) then
begin
if FileExists(string(AFileName)) then
Result := AWordApp.Documents.Open(AFileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam)
else
Result := AWordApp.Documents.Add(EmptyParam, EmptyParam,
EmptyParam, EmptyParam) as IWordDocument;
end;
end;
|
Сохранить документ:
| Код |
function MSWordSaveDocument(const ADocument: IWordDocument; AFileName: OleVariant): Boolean;
var
lDir: string;
begin
Result := False;
if Assigned(ADocument) and (not VarIsNull(AFileName)) and VarIsStr(AFileName) then
begin
lDir := ExtractFilePath(string(AFileName));
if (lDir <> '') and (lDir <> DecimalSeparator) then
begin
ForceDirectories(lDir);
try
ADocument.SaveAs(AFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
while not ADocument.Saved do
Sleep(0);
Result := True;
finally
Assert(Result, 'Error: MSWordSaveDocument');
end;
end;
end;
end;
|
Закрыть документ:
| Код |
procedure MSWordCloseDocument(const ADocument: IWordDocument);
begin
if Assigned(ADocument) then
ADocument.Close(EmptyParam, EmptyParam, EmptyParam);
end;
|
Закрыть объект Word:
| Код |
procedure MSWordCloseApplication(const AWordApp: IWordApplication);
begin
if Assigned(AWordApp) then
AWordApp.Quit(EmptyParam, EmptyParam, EmptyParam);
end;
|
в uses нужен Word2000(или Word2003) какой выбирал при установке вроде.
Ну а что делать с полученным IWordDocument надеюсь разберешся.
|
Ых многа