Чтобы откомпилить создал новый проект, туда добавил этот файл. Затем скопилил проект, забрал новое dcu и закинул в указанное место. В своем проекте понятно нажал Projects - Build All Projects и всё заработало.
Суть проблемы - при экспорте в ворд нельзя было оставить ворд открытым. При установке нужных опций он оставался висеть в трее, но видимость была отключена. Вот что правил, для потомков:
| Код |
procedure TJvDBGridWordExport.DoClose;
begin
//by pavel
if not VarIsEmpty(FWord) and (FClose = scNever) then
begin
FWord.Visible := True;
FWord := Unassigned;
Exit;
end;
//--by pavel
if not VarIsEmpty(FWord) and (FClose <> scNever) then
try
if (FClose = scAlways) or not FRunningInstance then
begin
FWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);
FWord.Quit;
end;
FWord := Unassigned;
except
HandleException;
end;
end;
|
|
)