Скачать: CL | DM;

Число строк в документе Word   Найти похожие ветки 

← →
Mefodiy   (2005-06-08 09:36) [0]

Как, используя OleCreateObject и не открывая документ Word, определить в нем количество строк
Спасибо

---

← →
-=XP=- ©   (2005-06-08 10:17) [1]

Как, используя OleCreateObject и не открывая документ Word

Какое отношение имеет OleCreateObject к количеству строк в документе Word? Подумайте еще раз.

---

← →
Mefodiy   (2005-06-08 10:30) [2]

"Не открывая документ Word" имеется в виду не запуская сам WinWord

---

← →
-=XP=- ©   (2005-06-08 10:49) [3]

не запуская сам WinWord

А для чего, по Вашему, служит функция CreateOleObject?
И что, по Вашему, обозначает "запустить WinWord"?

---

← →
Mefodiy   (2005-06-08 10:55) [4]

Под "не запуская сам WinWord" имею в виду не видеть на экране окно с запущенным WinWord и открытым в нем моим документом

---

← →
-=XP=- ©   (2005-06-08 11:05) [5]

А что, разве показывает окно с запущенным WinWord и открытый Ваш документ в нем?

---

← →
Mefodiy   (2005-06-08 12:16) [6]

Приведенный ниже код позволяет подсчитать число строк в документе:

procedure TForm1.Button1Click(Sender: TObject);
 var MyWord: Variant ;
     i: integer;
begin
 MyWord := CreateOleObject("Word.Basic");
 MyWord.FileOpen(Name := "MyFile") ;
 i := 0;
 MyWord.StartOfDocument;
 while MyWord.AtEndOfDocument <> -1 do
 begin
   MyWord.LineDown(1,0);
   Inc(i);
 end ;
 MyWord.FileExit;
 MyWord := UnAssigned;
 ShowMessage(IntToStr(i));
end;
В WordBasic наверняка есть возможность сразу узнать это число. Как это сделать?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c