[Delphi] MS Word 파일에서 텍스트 추출

uses Windows, SysUtils, Variants, Forms, ComObj, OleServer, WordXP;

 

...

...

...

 

 

 

function GetWordText(const fName: String): String;
var
  WordApp, WordDoc: OleVariant;
  i: Integer;

 

begin
  // 워드 어플리케이션 생성
  try
    WordApp:=CreateOleObject('Word.Application');
  except
    MessageBox(0,'MS-Word 가 설치되어 있지 않습니다.','Error',MB_OK);
    Exit;
  end;

 

  // 파일존재 여부 검사
  if not FileExists(fName) then begin
    MessageBox(0,'파일이 없습니다.','Error',MB_OK);
    Exit;
  end;

 

  // 워드 Document Open
  WordDoc:=WordApp.Documents.Open(OleVariant(fName),EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam);

 

  // 텍스트 추출
  for i:=1 to WordDoc.Sentences.Count do begin
    Result:=Result+#13#10+WordDoc.Sentences.Item(i).Text;
    Application.ProcessMessages;
  end;

 

  // 해제
  WordDoc.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);
  WordApp.Quit(EmptyParam, EmptyParam, EmptyParam);
  WordDoc:=UnAssigned;
  WordApp:=UnAssigned;
end;