View text on CRT monitor

[SF]

Windows XP SP2

Word 2000





I can move the text to the right on the monitor by holding down the shift
key and clicking the triangle-shaped arrow in the bottom lower left corner
(next to the "print layout view" and "outline view" buttons.




I recorded a macro to do this and the code is:



ActiveWindow.ActivePane.SmallScroll ToRight:=-1



But the macro won't do anything if I make a new document and run it.

Very strange.

 

[SF]

Okay, I found out that the code is the same whether you hold down the shift
key or not.
The code is always:

ActiveWindow.ActivePane.SmallScroll ToRight:=-1

So, where is the software interpreting the shift key?

 

[Doug Robbins - Word MVP]

The macro-recorder is ignoring the shift key because it has no influence.
The reason that your new document does not scroll is probably because as
displayed, its width does not exceed the screen width. Set the zoom to 500%
and see what happens.

But I am not sure why you would want a macro to do this.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[SF]

Thank you, Doug, for your reply.

First, let me explain the overall picture of what I'm trying to do.
I'm writing a novel. I like to use the Normal View, instead of Print View
(which works well for short documents, but becomes cumbersome in a 400 page
novel)

When I call up the document in Normal View, the text on my screen is left
justified and slammed solidly against the left side of the monitor.

Now, with all the text on the left half of the monitor, the right half of
the monitor is a vast ocean of white dead space. It gives me a feeling of
being lopsided on my screen. I can fix this easily by holding the Shift Key
and clicking the left scroll button. Every click of the left scroll button
shifts the text on the screen to the right an inch.

(I'm sorry, Doug, but I'm quite sure this is not a zoom problem. I mean no
disrespect, but I suspect you may be unfamiliar with this function. It's one
of those quirky, little-known gems of Word. I suggest you open a document
and hold down the shift key and click the bottom left scroll button to
verify what I am referring to.)

If you check the ruler, you will see that this operation does not change the
"actual" margins of the document itself. It just moves the entire ruler to
the right one inch and the document follows the ruler.
Anyway, the upshot of the whole thing is that after three shifts, the text
of my novel is now smack in the middle of the screen with approximately the
same amount of white space on both sides. It is a much more comfortable
feeling.


The actual specs I am using are
19 inch CRT monitor
1024 X 768
Times New Roman 12 point
Right margin of document on ruler is set at the standard (default) six
inches.

Respectfully,
SF

 

[Tony Jollans]

I'm sorry to say I don't know if this is possible with VBA but, if you're
working in Normal View, why not set Wrap to Window (Tools > Options > View
tab) so that you make use of the entire space available?

 

[SF]

Hi Tony,
Well, I have to admit that its nothing more than an artistic sort of thing.
The closer the text on the screen resembles the text in an actual book, the
easier it is to set chapter headings, subheadings, epigraphs, and things
like that. Oddly enough, it even influences the decision of where to start
and end paragraphs. Grisham may use the wrap to window trick because his
paragraphs can get quite huge.
Thanks for the suggestion. Hadn't thought of that. May come in handy later.

But I'm beginning to think you are right, though. It may not be possible in
VBA. (Sigh).

 

[Doug Robbins - Word MVP]

If you don't mind seeing the names of the Styles that you are using, you can
move the text to the right by setting the StyleAreaWidth either via
Tools>Options>View or by using a macro

With ActiveDocument.ActiveWindow
.View.Type = wdNormalView
.StyleAreaWidth = InchesToPoints(1)
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP