Форум: "Потрепаться";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Вниз

Получение закладок Word   Найти похожие ветки 

← →
syte_ser78 ©   (2005-01-18 09:05) [0]

procedure Tfrm_main.Button5Click(Sender: TObject);
var
  i:integer;
  wrd:wordapplication;
  wrd_doc:worddocument;
begin
  try
     wrd := GetActiveOleObject( "Word.Application")as WordApplication;
  except
     wrd := CreateOLEObject( "Word.Application") as WordApplication;
  end;
  try
     wrd_doc:=wrd.ActiveDocument;
  except
  end;
//   i:=wrd_doc.Bookmarks.Count-1;
  for i:=0 to wrd_doc.Bookmarks.Count-1 do
     begin
//      frm_main.Memo2.Lines.Add(wrd_doc.);
     end;
end;

Переменная i всегда равна нулю. Закладки в активном документе ворда есть. В чем ошибка?

---

← →
YurikGL ©   (2005-01-18 09:15) [1]

> syte_ser78 ©   (18.01.05 09:05)  

попробуй
showmessage(intToStr(wrd_doc.Bookmarks.Count));

---

← →
syte_ser78 ©   (2005-01-18 09:42) [2]

Ок! Ошибку обнаружил

wrd_doc.Bookmarks - типа боолеан
как получить значение i-го значения закладки?

---

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

Форум: "Потрепаться";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c