Удаляются закладки после замены текста
nali © (2007-04-01 23:32:00)
Програмно открываю документ MSWord, перечисляю закладки,
нахожу нужные и меняю их текст, после замены текст меняется, но
закладка в документе удаляется. Может предложите альтернативный
код, чтобы закладки не удалялись.
Код примерно такой:
var
WordApp,Doc,R:OleVariant;
b:integer;
bk,bk_name, bk_value:string;
docname:string;
procedure ChangeBookmark;
begin
docname:='C:\MyDoc.doc';
try
WordApp.Documents.Open(docname);
except
exit;
end;
try
if WordApp.ActiveDocument.fullname=docname then
doc:=WordApp.ActiveDocument
else exit;
except
exit;
end;
for b:=1 to doc.Bookmarks.Count do
begin
bk:=doc.Bookmarks.Item(b).Name;
if bk=bk_name then
begin
R:=doc.Bookmarks.Item(b).Range;
R.Text:=bk_value;
break;
end;
end;
end;
umbra (2007-04-02 19:15:00) [1]
у меня при выполнении приведенного кода в 97 ворде ничего не
удалаяется. ошибка где-то в другом месте.
Наверх 
ЧАТ |
Орешник |
|
