PDA

Просмотр полной версии : Удаление закладки Word


catdimon
26-11-2006, 14:41
Здравствуйте! Проблема, при попытки удаления закладки в файле doc с помощью Delphi (закладки имеют имя: z1, z2,z3) выходит сообщение: "Запрашиваемый номер семейства не существует"
подскажите где проблема, очень нужно решить срочно.
procedure TForm1.Button1Click(Sender: TObject);
var
n:Olevariant;
z2:Olevariant;

begin
n:='C:\dr.doc';
WordApplication1.Documents.Open(n, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Selection.Text := Query1.FieldValues ['nk'];
WordDocument1.Bookmarks.Item(z2).Delete;
WordDocument1.ActiveWindow.View.ShowBookmarks :=True;
WordDocument1.PrintOut;
WordDocument1.Save;
WordDocument1.Close;
end;
Спасибо за ранее!