How to make word 2007 overlay Outlook exact window size ?

H

hls

What is required to make word app screen match Outlook Active screen size ?
'
Set mWrd = New Word.Application
With mWrd
.Documents.Add
.Documents(1).Envelope.Insert
.WindowState = wdWindowStateMinimize
.Top = .PixelsToPoints(ActiveExplorer.Top)
.Left = .PixelsToPoints(ActiveExplorer.Left)
.Width = .PixelsToPoints(ActiveExplorer.Width)
.Height = .PixelsToPoints(ActiveExplorer.Height)
Debug.Print "AE.Top: " & ActiveExplorer.Top & " (Word.Top: " & .Top
& ")"
Debug.Print "AE.Left: " & ActiveExplorer.Left & " (Word.Left: " &
..Left & ")"
Debug.Print "AE.Width: " & ActiveExplorer.Width & " (Word.Width: " &
..Width & ")"
Debug.Print "AE.Height: " & ActiveExplorer.Height & " (Word.Height:
" & .Height & ")"
.PrintPreview = True
.Visible = True
.WindowState = wdWindowStateNormal
.Activate
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro does not make image in header higher 0
Word 2007 in Win7 - window keeps changing size 1
Word 2007 open window size 2
Word display problem 0
XP/Office 2003 inconsistent behavior while trying to create splits 3
Creating an Outlook like calendar 1
[UPDATE]Arrange Windows Side-by-side 0
How to create a Word Background from VBA? 1

Top