Set Ms Word application size to equal Outlook application size ?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Harold M Little - 22 Sep 2005 02:47 GMT

I launch MS Word from with in Outlook, once Word is open,
I want to set the application window size to exactly fit on top of Outlook.
Is there a conversion or function to force word to overlay outlook
perfectly?
I use the following snippet,but the windows never align properly.
'
wd.Top = olk.ActiveExplorer.Top
wd.Left = olk.ActiveExplorer.Left
wd.Width = olk.ActiveExplorer.Width
wd.Height = olk.ActiveExplorer.Height

Reply to this Message

Eric Legault [MVP - Outlook] - 22 Sep 2005 21:12 GMT

Harold, I have some code at this link that explains how to use the Win32API
to determine the size of the available screen:

Tiling The Reply Message For Easy Reference:
http://blogs.officezealot.com/legault/archive/2004/01/19/251.aspx

You can then use those values to calculate how wide/tall you want those
windows to be. Keep in mind that for the Word window and the Outlook
Explorer window, you'll have to set both window states to normal before you
resize them:

Word:
ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal

Outlook:
ActiveExplorer.WindowsState = olNormalWindow

Also note that Word reports sizing and positioning property values as
points, while Outlook uses pixels. The values returned from the
SystemParametersInfo call are expressed in pixels too I believe. You can use
the Application.PixelsToPoints method in Word to convert.

Signature

Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard - http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/

> I launch MS Word from with in Outlook, once Word is open,
> I want to set the application window size to exactly fit on top of Outlook.
[quoted text clipped - 6 lines]
> wd.Width = olk.ActiveExplorer.Width
> wd.Height = olk.ActiveExplorer.Height

Reply to this Message

Harold M Little - 23 Sep 2005 02:16 GMT

Works perfectly,

Thank You - Eric

> Harold, I have some code at this link that explains how to use the
> Win32API
[quoted text clipped - 32 lines]
>> wd.Width = olk.ActiveExplorer.Width
>> wd.Height = olk.ActiveExplorer.Height

Reply to this Message