Help for this page

Select Code to Download

Select or download this

use Win32::OLE;
my $word=Win32::OLE->new('word.application');
...
my $text=$doc->{Text};
#
$text=~s/\r/\n/g;

Select or download this
```
perl -MWin32::OLE -d -e 42
```