Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^2: VBA to Perl

by Samy_rio (Vicar)
on Mar 10, 2006 at 09:56 UTC ( #535648=note: print w/replies, xml ) Need Help??


in reply to Re: VBA to Perl
in thread VBA to Perl

Hi marto.

use strict; use warnings; use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; use Cwd; #my ($file) = @ARGV; #my $cwd_path = getcwd(); #$cwd_path=~ s/\//\\/gs; #my $file_name = "$cwd_path\\$file"; my $file_name = "c:\\entityandsymbol.doc"; my $Word = Win32::OLE->new('Word.Application'); $Word->{'Visible'} = 1; my $document = $Word->Documents->Open($file_name) || die("Unable to op +en document", Win32::OLE->LastError()); my $Selection = $Word->Selection; $Selection->HomeKey (wdStory); $Selection->TypeText("This is the inserted text"); $Selection->Collapse (wdCollapseEnd); $Selection->TypeParagraph; $Selection->TypeText("This is the inserted text 2"); $Selection->Collapse (wdCollapseEnd); $Selection->TypeParagraph; $Word->Documents($file_name)->Save(); $Word->Quit();

I am getting the error as follows:

Unable to open documentOLE exception from "Microsoft Word": Could not open macro storage. Win32::OLE(0.1701) error 0x800a175d in METHOD/PROPERTYGET "Open" at array.pl line 4630.

But the word file opening corectly without modification which I did in coding.

Suggest me in correct way.

Updated: I found the solution for the above problem as per "http://www.blink.com.au/tech/trouble.htm" information.

Could Not Open Macro Storage Error (Run-time error 5981)

When running BLINK you can get the error message "Could not open macro storage". This is caused by either not having Service Pack 1 installed with Microsoft® Office, or because the Visual Basic and Microsoft® Word installation has become corrupted.

To fix it you will need to either install Service Pack 1, if it has not been installed before, or reinstall Microsoft® Word.

I am reinstalled the Microsoft Word then the above code working fine.

Regards,
Velusamy R.


eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Replies are listed 'Best First'.
Re^3: VBA to Perl
by marto (Archbishop) on Mar 10, 2006 at 10:16 UTC
Re^3: VBA to Perl
by wfsp (Abbot) on Mar 10, 2006 at 10:17 UTC
    Hi Samy_rio,

    Your script runs fine for me.

    Google on: Microsoft Office "Could not open macro storage"

    The results indicate there could be a problem with your Office setup.

    Sorry not to be able to help more.

    John

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://535648]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2019-10-16 22:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?