Hi.

Ramkumar wrote:
>   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;
>    

When dealing with driving MS Office products through OLE,  you're almost 
always better off running the package (Word in this case),  Going to 
Tools/Macro/Start Macro,  doing what you want through the GUI, Stopping, 
then editing the macro.
This is what I see for Word 2003:
ActiveDocument.SaveAs FileName:= _
        "This is a test of the linefeeds test output.txt", FileFormat:= _
        wdFormatText, LockComments:=False, Password:="", 
AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, 
EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, 
SaveAsAOCELetter:= _
        False, Encoding:=437, InsertLineBreaks:=True, 
AllowSubstitutions:=False, _
        LineEnding:=wdCRLF

Perhaps options FileFormat =>  wdFormatText, InsertLineBreaks => True, 
LineEnding =>  wdCRLF
will do what you want?

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