Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Число строк в документе Word [D7, WinXP]

Mefodiy © (2005-06-08 09:36:00)
Как, используя OleCreateObject и не открывая документ Word, определить в нем количество строк
Спасибо

Mefodiy (2005-06-08 12:16:00) [1]
Приведенный ниже код позволяет подсчитатьчисло строк в документе:

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

-=XP=- (2005-06-08 11:05:00) [2]
А что, разве показывает окно с запущенным WinWord и открытый Ваш документ в нем?

Mefodiy (2005-06-08 10:55:00) [3]
Под "не запуская сам WinWord" имею в виду не видеть на экране окно с запущенным WinWord и открытым в нем моим документом

-=XP=- (2005-06-08 10:49:00) [4]
не запуская сам WinWord

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

Mefodiy (2005-06-08 10:30:00) [5]
"Не открывая документ Word" имеется в виду не запуская сам WinWord

-=XP=- (2005-06-08 10:17:00) [6]
Как, используя OleCreateObjectи не открывая документ Word

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »