Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 372
  • Last Modified:

Dump *.Doc to Text ?

Im looking for a free or opensource component to Dump *.Doc  to Text ?

Please do not post unless you have a free or opensource method of accomplishing this.

THanks
0
Looking_4_Answers
Asked:
Looking_4_Answers
  • 2
  • 2
1 Solution
 
DonConsolioCommented:
0
 
Looking_4_AnswersAuthor Commented:
Sorry, Delphi 2010
0
 
Looking_4_AnswersAuthor Commented:
@DonConsolio:

NO THANKS


Actually, i would be more interested in plain ole code versus a component
0
 
jimyXCommented:
Simply you can use the following code to open the doc file and copy the content to memo and/or text file:

uses ComObj, clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp : Variant;
  Range : Variant;
  i : integer;
  Selection : Variant;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Visible := false;
  Wordapp.documents.open('C:\YouDocFile.doc');
  Range := WordApp.Documents.Item(1).Range;
  WordApp.documents.item(1).select;
  WordApp.selection.copy;
  Memo1.lines.clear;
  Memo1.pastefromclipboard;
  Clipboard.Clear;
  Memo1.Lines.SaveToFile('C:\YouTextFile.txt');
  WordApp.documents.item(1).Close;
  WordApp.Quit;
end;

Open in new window

0
 
jimyXCommented:
Here is the code for converting without using the clipboard:

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
  wdDoNotSaveChanges = 0;
var
  WordApp : Variant;
  Range : Variant;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Visible := false;
  Wordapp.documents.open('C:\YouDocFile.doc');
  WordApp.Selection.ClearFormatting;
  Range := WordApp.Documents.Item(1).Range;
  WordApp.documents.item(1).select;
  Memo1.Lines.Text := WordApp.selection.text;
  Memo1.Lines.SaveToFile('C:\YouTextFile.txt');
  WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
  WordApp.Quit;
end;

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now