Hi List,

 I am opening word document through Win32::OLE and saving as Plain Text with
 Encoding option MS-DOS and Insert-Line-Break option.
 
 I achieved the above output through perl, but output not matching with the
 output which is done the same manual operation in MS-word.

Complete code:

	use Win32::OLE;
	use Win32::OLE::Const 'Microsoft Word';

	my $folderpath=$ARGV[0];

	my $Word = Win32::OLE-> new('Word.Application');
	$Word-> {'Visible'} = 0;
	$Word-> {DisplayAlerts} = 0;
	my $doc = $Word-> Documents->Open("$folderpath\\Chapter 1.doc");
	$Word-> ActiveDocument->SaveAs({FileName=>"$folderpath\\Chapter
1.txt", FileFormat=> wdFormatTextLineBreaks});
	$Word-> {ActiveDocument}->Close;
	$doc-> Close;
	$Word-> Close;

By manual (In word application) output coming with breaks in each line like:

    Writing, of whatever type, can be a draining and dreaded task.   But it
can also be a passion, 
an adventure, and even a compulsion that occasionally brings great
satisfaction as a payoff to 
the pain.   One group of people write simply because it is demanded of them
by employers (or 
teachers).  A second group set down words because they like to write.  And a
special third 
group may internally be compelled to pen things due to changes in the brain
that Alice Flaherty 
and colleague neurologists label hypergraphia, ?an overpowering desire to
write.? [1]  


[[Line breaks for each line in aparagraph - Required output]]

By perl code output coming with breaks each line like:

    Writing, of whatever type, can be a draining and dreaded task.   But it
can also be a passion, an adventure, and even a compulsion that occasionally
brings great satisfaction as a payoff to the pain.   One group of people
write simply because it is demanded of them by employers (or teachers).  A
second group set down words because they like to write.  And a special third
group may internally be compelled to pen things due to changes in the brain
that Alice Flaherty and colleague neurologists label hypergraphia, "an
overpowering desire to write." [1]  

[[Single line without line break]]

I am using perl5.8.8. basic console perl programming. Please suggest.

Please correct me if I did any mistake on the above code.

Regards,
Ramkumar,



_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs