VBA to Perl

[sanPerl]

Dear Monks,
I am Not good in VBA, and I would like to convert a VBA Macro to Perl. After reading few help pages from ActivePerl site. I wrote a Perl code. Now it is giving following error
Can't modify non-lvalue subroutine call at rapid.pl line 16.
My VBA Macro goes as follows
VBA Macro

Selection.HomeKey wdStory
Selection.Text = "This is the inserted text 1"
Selection.Collapse wdCollapseEnd
Selection.TypeParagraph
Selection.Text = "This is the inserted text 2"
Selection.Collapse wdCollapseEnd
Selection.TypeParagraph

and my Perl script goes as follows.
Perl Script

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 $Word = Win32::OLE->new('Word.Application');

$Word->{'Visible'} = 1;     
$Word->Documents->Open($file_name) || die("Unable to open document", W
+in32::OLE->LastError());;
$Word->Selection->HomeKey (wdStory);
$Word->Selection->Text="This is the inserted text";
$Word->Selection->Collapse (wdCollapseEnd);
$Word->Selection->TypeParagraph;
$Word->Selection->Text("This is the inserted text 2");
$Word->Selection->Collapse (wdCollapseEnd);
$Word->Selection->TypeParagraph;
$Word->Documents($file_name)->Save();
$Word->Quit();
    

I searched from 'SuperSearch' but could Not receive satisfactory information. I would be grateful, if somebody could guide me on this. I don't expect straightforward solutions but if you could direct me to any good tutorials on this topic, I would be grateful to you.
Regards,
Sandeep
Update
Dear All,
Thanks to all for your support. It was my lack of knowledge that I was using "Text" instead of "TypeText". Thanks to marto for providing this hint.

[marto]

Hi sanPerl,

The code $Word->Selection->Text="This is the inserted text" Looks wrong to me, do you want to select or type text? If you want to type text I think it should be in the form of TypeText("your text goes here"). The code I posted below is untested (I don't have access to test this at the moment) but I think it should work: Tested and working, see my updated at the bottom of this post.


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 $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();


You should check out the Win32::OLE documentation, under Hints for Microsoft Office automation it reads:

'The object model for the Office applications is defined in the Visual Basic reference guides for the various applications. These are typically not installed by default during the standard installation.'

If you are unsure of the object model surf over to http://msdn.microsoft.com and have a look around.

ActiveState have an article How to convert a VBA macro to Perl which should be worth a read.

Update:I just tested the VB macro in Word 2003 against the code I posted above. To me it looks like the document produced by the VB code is the same as the document produced by the Perl code.

Hope this helps.

Martin

[Samy_rio]

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.

[marto]

Samy_rio,

And what have you done to find out what this error message means?

If you had searched the ActiveState's mailing list archive or google you would find that a lot of the posts point towards a permissions issue. When I replied to sanPerl, I listed various places to look for information on this topic. Check out a the posts on ASPN, google or even this msdn.microsoft.com.

Hope this helps.

Martin

[wfsp]

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

[mhacker]

I've never used Win32::OLE, but I saw this:

$Word->Selection->Text="This is the inserted text";
$Word->Selection->Collapse (wdCollapseEnd);
$Word->Selection->TypeParagraph;
$Word->Selection->Text("This is the inserted text 2");

I guess that you cannot assign to the Text function like you do in the first line. It is a function that you need to supply an argument to (like you do in the last line).

[BrowserUk]

You may already know the answer to your own question :)

In the line giving the error

$Word->Selection->Text="This is the inserted text";

You are trying to treat $Word->Selection->Text as a variable and perl is complaining that Can't modify non-lvalue subroutine call, which means that it must be a subroutine and not a variable.

Three lines lower down you have

$Word->Selection->Text("This is the inserted text 2");

Same thing, but this time you are using it as a subroutine. Change the error line to match the other one and that error will probably go away.

[aquarium]

on line 16 should be....Text("This is the inserted text");
without the = sign

[planetscape]

To supplement marto's great links, you may also have on your machine something called "OLE Browser" or "Type Library Browser" if you installed Win32-OLE-0.1403 or upgraded from that to a later version. You might find it in C:\Perl\html\OLE-Browser or C:\Perl\html\lib\site\Win32\OLE depending on your installation.

Something else I've found to be very handy indeed is West Wind Technology's GetConstants utility, which allows you to look at all those cryptic constants MS Office uses. (A short snippet of output is below.) Note that they do shuffle the links around occasionally, so it may be necessary to do some searching. :-)

*** Constant Group: WdTableFieldSeparator
#define wdSeparateByParagraphs                            0
#define wdSeparateByTabs                                  1
#define wdSeparateByCommas                                2
#define wdSeparateByDefaultListSeparator                  3

HTH,

[Errto]

AFAIK this should also work:

$Word->Selection->{Text}="This is the inserted text";

[spurperl]

I just want to note that while browsing the ActivePerl page the other day, I run upon their automatic VBA to Perl converter. This tool is part of their professional development kit (non-free) - it takes a VBA script and faithfully converts it to a Perl script using Win32::OLE. This can be very useful for a company in need of massive VBA to Perl conversions.

[Anonymous Monk]

Selection.Find.Execute "aaa" Selection.TypeParagraph Selection.MoveRight 1, 1