Автоматизация Microsoft Word

← →
fool © (2003-05-14 18:09) [0]

Привет МАСТЕРА. Решил соорудить отчет в Word-е ну и наткнулся на грабли :(

Делаю отчет:

begin
AppProdID := "Word.Application";

Result := GetActiveObject(ProgIDToClassID(AppProdID), nil, Unknown);
if Result = MK_E_UNAVAILABLE then App := CreateOleObject(AppProdID)
else App := GetActiveOleObject(AppProdID);

App.Visible := True;
App.Documents.Add;
Doc := App.ActiveDocument;
// что-то генерю ------------------
Doc.Paragraphs.Add;
Rng := Doc.Paragraphs.Item(1).Range;
Rng.InsertBefore("Hello Word!");
// заканчиваю что-то генерить------
App := UnAssigned;
end;

тут вроде все нормально работает, а грабли вот в чем: сгенерил я первый документ, второй... и вот пока генериться N-ный документ я решаю закрыть или сохранить какой-нибудь из предыдущих док-ов. И тут прога выплевывает: "call was rejected by callee" и N-ный документ перестает генериться. Ну и что тут делать?

← →
RoadStar © (2003-05-14 18:25) [1]

А че тебе мешает сделать так:

try // Если Word уже запущен
W := GetActiveOleObject("Word.Application"); // Взять ссылку на запущенный OLE объект
except
try // Word не запущен, запустить
W := CreateOleObject("Word.Application"); // Создать ссылку на зарегистрированный OLE объект
except
Exit;
end;
end;

Автоматизация Microsoft Word Найти похожие ветки