Число строк в документе 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 и открытым в нем моим документом

А что, разве показывает окно с запущенным 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 наверняка есть возможность сразу узнать это число. Как это сделать?

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