Hello everyone,
I have in hand some Perl code which converts a .doc file to a text file( extracts each para): 
#!perl -w
#
# Name:
#    ole-word-2-text-2.pl.
#
# Purpose:
#    Read an MS Word doc and extract each paragraph. Do this in 2 diff
+erent ways.
#
# Test environment:
#    MS Word 2000 under WinNT.
#
# Author:
#    Ron Savage <ron@savage.net.au>
#
# Home:
#    http://savage.net.au/Perl-tutorials.html#tut-17
#
# Version
#    1.00    16-Apr-2000
#
# Licence:
#    Copyright (c) 2000 Ron Savage.
#    All Programs in this package are free software; you can redistrib
+ute
#    them and/or modify them under the same terms as Perl itself.
#    Perl's Artistic License is available at:
#    See licence.txt.

use strict;
use Win32::OLE qw(in with);

# --------------------------------------------------

my($input_file)    = 'C:\My Documents\msword\olewordtotext1\tut-17\ole
+-word-demo-4.doc';
$input_file        = Win32::GetCwd() . "/$input_file" if $input_file !
+~ /^(\w:)?[\/\\]/;
die "File $input_file does not exist" unless -f $input_file;

my($word)        = Win32::OLE->new('Word.Application', 'Quit') || die 
+"Couldn't run Word";
my($doc)        = $word->Documents->Open($input_file);

print "Extract using first method: \n";

my($index) = 0;

for my $paragraph (in $doc->Paragraphs)
{
    $index++;
    # Remove trailing ^M (the paragraph marker) from Range.
    my($text) = substr($paragraph->Range->Text, 0, -1);
    print "Paragraph: $index. Text: <$text>\n\n";
}

print '-' x 50, "\n";
print "Extract using second method: \n";

my($paraCount)    = $doc->Paragraphs->Count;

for ($index = 1 ; $index <= $doc->Paragraphs->Count ; ++$index)
{
    my($text) = $doc->Paragraphs($index);
    print "Paragraph: $index. Text: <", $text->Range->Text, ">\n\n";
}

print '=' x 50, "\n";

$doc->{Saved} = 1;
$doc->Close;

# Success.
print "Success \n";
exit(0);

[download]

Is it possible to do the reverse? Convert the text file back to a .doc file with all the formatting. Any sample code or help would be appreciated.

Thanx

20030611 Edit by Corion: Added formatting and code tags

In reply to Win32::OLE for MS-Word by perl_seeker

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.