업무에는 word 에서 text 를 뽑는거라서 다시 구글링해서 찾았습니다.
http://stackoverflow.com/questions/4289836/dumping-word-document-doc-to-text
잘되네요 ^^;
uses
ComObj;
function ExtractTextFromWordFile(const FileName:string):string;
var
WordApp : Variant;
CharsCount : integer;
begin
WordApp := CreateOleObject(`Word.Application`);
try
WordApp.Visible := False;
WordApp.Documents.open(FileName);
CharsCount:=Wordapp.Documents.item(1).Characters.Count;//get the number of chars to select
Result:=WordApp.Documents.item(1).Range(0, CharsCount).Text;//Select the text and retrieve the selection
WordApp.documents.item(1).Close;
finally
WordApp.Quit;
end;
end;
2012-12-14 오전 4:11:29
