Pobranie tekstu z Word. Otwieranie już jest.

Witam,

jak pobrać tekst z dokumentu Worda?

Otwieranie już mam :

var
  Wordapp : oleVariant;
  Doc : olevariant;// Will hold the word document, we wish to call the macro on.
begin
  Wordapp := CreateOleObject('Word.Application');
  Wordapp.visible := False;

  Doc := Wordapp.documents.Open('C:\Doc.doc');

  Wordapp.Quit(False)
end;

Szukałem z godzinę rozwiązania, znalazłem mnóstwo kodów na otwarcie .doc, ale żadnego na pobranie tekstu.

Uporałem się z problemem poprzez eksport do pliku tekstowego :

var
  Wordapp : oleVariant;
  Doc : olevariant;
begin
  Wordapp := CreateOleObject('Word.Application');
  Wordapp.visible := False;

  Doc := Wordapp.documents.Open('C:\Doc.doc');

  WordApp.ActiveDocument.SaveAs('C:\a.txt', 0, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); // Zapis do pliku tekstowego

  Wordapp.Quit(False);
end;

Poprawka :

var
Wordapp : oleVariant;
Doc : olevariant;
begin
Wordapp := CreateOleObject('Word.Application');
Wordapp.visible := False;

Doc := Wordapp.documents.Open('C:\Doc.doc');

// POPRAWKA : MA BYĆ 2 ZAMIAST 0. WARTOŚĆ TA OZNACZA FORMAT PLIKU
WordApp.ActiveDocument.SaveAs('C:\a.txt', 2, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); // Zapis do pliku tekstowego

Wordapp.Quit(False);
end;

Akurat z Wordem nie wspolpracowalem, lecz z PPT i XLS, ale do Worda tez pewnie jest sie prosto dobrac, ale skoro operujesz na zapisie do txt to jedna uwaga, na koncu daj:

WordApp := UnAssigned

Aby zwolnic obiekt Ole