J
John McGhie
Kevs, Kevs, Kevs...
You actually have to read this stuff you know You have two threads
going in two different newsgroups. I sent you the whole thing, then I sent
you a replacement for one of the four macros.
Here it is again: This time, delete everything you have in your Normal
Template, and then paste this in, in its place:
Option Explicit
Sub AutoOpen()
Call SetWindowSize
End Sub
Sub AutoNew()
Call SetWindowSize
End Sub
Sub SetWindowSize()
'
' SetWindowSize Macro
'
'
Dim aDoc As Document
Dim aWindow As Window
Set aDoc = ActiveDocument
Set aWindow = aDoc.ActiveWindow
With aWindow
.WindowState = wdWindowStateNormal
.Height = (Application.UsableHeight * 1)
.Width = (Application.UsableWidth * 0.5)
.Left = ((Application.UsableWidth - .Width) / 2)
.View.Zoom.Percentage = 125
End With
End Sub
Remember you have to paste into TextEdit first, and "Make Plain Text". Then
copy from TextEdit and paste into the VBA Editor.
Note: I have condensed this: there are now THREE macros, not four. Each
line beginning with "Sub" marks the beginning of a macro (a "subroutine").
Each line that contains only "End Sub" marks the end of a macro.
When you paste this in, if any parts turn red, tell me what they are: that's
a compile error and it won't run if that happens.
Cheers
--
The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!
John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]
You actually have to read this stuff you know You have two threads
going in two different newsgroups. I sent you the whole thing, then I sent
you a replacement for one of the four macros.
Here it is again: This time, delete everything you have in your Normal
Template, and then paste this in, in its place:
Option Explicit
Sub AutoOpen()
Call SetWindowSize
End Sub
Sub AutoNew()
Call SetWindowSize
End Sub
Sub SetWindowSize()
'
' SetWindowSize Macro
'
'
Dim aDoc As Document
Dim aWindow As Window
Set aDoc = ActiveDocument
Set aWindow = aDoc.ActiveWindow
With aWindow
.WindowState = wdWindowStateNormal
.Height = (Application.UsableHeight * 1)
.Width = (Application.UsableWidth * 0.5)
.Left = ((Application.UsableWidth - .Width) / 2)
.View.Zoom.Percentage = 125
End With
End Sub
Remember you have to paste into TextEdit first, and "Make Plain Text". Then
copy from TextEdit and paste into the VBA Editor.
Note: I have condensed this: there are now THREE macros, not four. Each
line beginning with "Sub" marks the beginning of a macro (a "subroutine").
Each line that contains only "End Sub" marks the end of a macro.
When you paste this in, if any parts turn red, tell me what they are: that's
a compile error and it won't run if that happens.
Cheers
John, done what? I don't even recall the first there macros you are talking
about. .. maybe you can unify it. But again, I pasted that one thing in did
not work, so deleted it.
John,
also, in normal document, I got it to stick at 125%, but it will not center,
even though I save it centered. It still launches upper left screen upon
launch of app.
--
The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!
John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]