Manejo de archivos

[aeff]

ahhh!!, si notas que se tarda mucho, entonces te recomiendo que hagas lo siguiente:

Dentro de la función GetDocAsTxt hay dos lineas que dicen asi:

Código Delphi [-]
  WordApp.ActiveDocument.Close;
  WordApp.Quit;

esas dos remplazala por estas:

Código Delphi [-]
  ShellExecute(Application.Handle, nil, 'tskill', 'WINWORD', nil, SW_HIDE);
  Sleep(100);

y no olvides añadir en el uses la unit ShellApi si vas a trabajar con ShellExecute,

saludos,
aeff!!