I'm not familiar with Win32::OLE, but the function to look for is called "setfocus". Hope this helps.

This works for me -

use Win32::GuiTest qw/
   FindWindowLike 
   SetForegroundWindow 
   GetDesktopWindow 
   IsWindowVisible
/;

my @handles =   grep {IsWindowVisible($_) } 
                FindWindowLike(GetDesktopWindow(),
                               qr/^Microsoft Excel/,
                               undef,
                               undef);

die "Too many windows\n" if (@handles > 1);
die "Not enough windows\n" if (@handles < 1);

my $excel = shift @handles;

SetForegroundWindow($excel);
[download]

If the only window you are competing with is the Word Window the following is tested and works on 5.8.0 on XP-SP2 with Office 97. You could probably just not make the word window visible also .. however if they both need to be in the taskbar.. this works fine.

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const;

my $xl = Win32::OLE->new('Excel.Application');
my $xlConst = Win32::OLE::Const->Load('Microsoft Excel 8.0 Object Libr
+ary');

#Add a workbook so the window doesn't autoclose
$xl->Workbooks->Add();

my $word = Win32::OLE->new('Word.Application');
my $wordConst = Win32::OLE::Const->Load('Microsoft Word 8.0');

#Set both visible to test
$word->{Visible} = -1;
$xl->{Visible} = -1;


#Minimize Word
$word->{WindowState} = $wordConst->{'wdWindowStateMinimize'};
#Maximize Excel
$xl->{WindowState} = $xlConst->{'xlMaximized'};
[download]

---

Grygonos

I'm not sure it applies to your problem but the attribute /function to look for might be called 'BringToFront'.

hth

I've not tested this, but how about toggling the Excel Applications Visible property?

#Assuming your OLE Excel.Application object is called $Excel
$Excel->{Visible}=0;
$Excel->{Visible}=1;
[download]

Or how about toggling the WindowState property of the Excel object?

If it were the other way around it would be easy since Excel has an ActivateMSApp method. Unfortunately, WINWORD does not...