Форум: "Corba";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];

Вниз

Удаляются закладки после замены текста   Найти похожие ветки 

← →
nali   (2007-04-01 23:32) [0]

Програмно открываю документ 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) [1]

у меня при выполнении приведенного кода в 97 ворде ничего не удалаяется. ошибка где-то в другом месте.

---

Страницы: 1 вся ветка

Форум: "Corba";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c