#!perl.exe
use Win32::OLE;
#include
$w = Win32::OLE->GetActiveObject("Word.Application");
$ad = $$w{ActiveDocument};
$content = $$ad{Content};
$text = $$content{Text};
$text =~ s/\r/\n/g;
print "$text";

# exclude
$w = Win32::OLE->GetActiveObject("Word.Application");
$ad = $$w{ActiveDocument};
$content = $$ad{Content};
$$content{Text} = "yes, overwrite it\rnow!!!";

--- 
:-)))))))) 

does it work over the nt-net ? :)))))))))
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web

Reply via email to