Импорт активного документа Word

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Импорт активного документа Word

 

Импортирует текст активного документа Word в объект класса TStrings (без форматирования). Если при открытом Worde результат отрицательный - рекомендуется перезапустить приложение, поскольку дальнейшие вызовы функции в подавляющем большинстве случаев будут приводить к ошибке

 

Зависимости: OleServer, Word97

Автор:       Dimka Maslov, mainbox@endimus.com, ICQ:148442121, Санкт-Петербург

Copyright:   Dimka Maslov

Дата:        6 февраля 2004 г.

********************************************** }

 

function ImportWordActiveDocument(Strings: TStrings): Boolean;

var

Word: TWordApplication;

Start, End_: Integer;

begin

Result := True;

try

Word := TWordApplication.Create(nil);

try

  Word.AutoConnect := False;

  Word.AutoQuit := False;

  Word.ConnectKind := ckRunningInstance;

  Word.Connect;

  Start := Word.Selection.Get_Start;

  End_ := Word.Selection.Get_End_;

  Word.Selection.SetRange(0, $7FFFFFFF);

  Strings.Text := Word.Selection.Text;

  Word.Selection.SetRange(Start, End_);

  Word.Disconnect;

finally

  Word.Free;

end;

except

Result := False;

end;

end;

 

 

Пример использования:

Code:

if not ImportWordActiveDocument(Memo1.Lines) then

ShowMessage('Error');

 

©Drkb::04438