Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Dump *.Doc  to Text ?

Posted on 2010-11-26
5
Medium Priority
?
369 Views
Last Modified: 2012-05-10
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
Comment
Question by:Looking_4_Answers
  • 2
  • 2
5 Comments
 
LVL 15

Expert Comment

by:DonConsolio
ID: 34220492
0
 

Author Comment

by:Looking_4_Answers
ID: 34220493
Sorry, Delphi 2010
0
 

Author Comment

by:Looking_4_Answers
ID: 34220497
@DonConsolio:

NO THANKS


Actually, i would be more interested in plain ole code versus a component
0
 
LVL 24

Expert Comment

by:jimyX
ID: 34221477
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
 
LVL 24

Accepted Solution

by:
jimyX earned 2000 total points
ID: 34221597
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

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …
In a question here at Experts Exchange (https://www.experts-exchange.com/questions/29062564/Adobe-acrobat-reader-DC.html), a member asked how to create a signature in Adobe Acrobat Reader DC (the free Reader product, not the paid, full Acrobat produ…
Suggested Courses
Course of the Month10 days, 11 hours left to enroll

885 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question