sub doc2pt {
    my (
        $docfile,
        $docpt,     # Converted text file
        ) = @_;
    
    require Win32::OLE;
    require Win32::OLE::Enum;
                                    # NOTE: Win32::OLE appears to need abs path
    my $document = Win32::OLE -> GetObject(abs_path($docfile));
    die "Can't GetObject($docfile) $!\n" if !defined($document);
    print "Extracting Text ...\n";
    open DOCPT, ">$docpt" or die "Can't open docpt file $docpt: $!";

    my $paragraphs = $document->Paragraphs();
    my $enumerate = new Win32::OLE::Enum($paragraphs);
    while (defined($paragraph = $enumerate->Next())) {
        my $style = $paragraph->{Style}->{NameLocal};
        print DOCPT "style==>$style\n";
###        my $range = $paragraph->{Range};
###        my $count = $range->ListParagraph();
###        if (defined($count)) {
###            my $paranum = $range->ListFormatListLevelNumber();
###            print DOCPT "paranum==>$paranum\n";
###        }

        my $text = $paragraph->{Range}->{Text};
        $text =~ s/[\n\r]//g;
        $text =~ s/\x0b/\n/g;
        print DOCPT "text==>$text\n";
    }
    close DOCPT;
}