[world bible school]

I want a button on the toolbar to set orientation to landscape without having
to use page setup button

[Robert M. Franz (RMF)]

Hi scholars

world bible school wrote:
I want a button on the toolbar to set orientation to landscape without having
to use page setup button

The following macro, put on a toolbar button (Tools | Customize |
Commands | Macros, push the macro into an existing or new taskbar -- as
long as you have access to taskbars, that is, Word 2003-related joke
:-)), changes the orientation of the section the cursor is in (or of the
first section in the selection if you have selected something):

Sub ToggleOrientation()
With Selection.Sections(1).PageSetup
If .Orientation = wdOrientLandscape _
Then .Orientation = wdOrientPortrait _
Else .Orientation = wdOrientLandscape
End With
End Sub

I have not tested this for things like what happens when the selection
is in a textbox or header etc.

For anyone more familiar with VBA than myself (which doesn't mean much
at all! :-)), the slightly shorter version taking advantage of knowing
what the wdOrient constants' values are, would be:

Sub ToggleOrientation1()
With Selection.Sections(1).PageSetup
.Orientation = 1 - .Orientation
End With
End Sub

But I have no clue whether this is as safe as the above (and it's
certainly less readable ...).

Greetinx
Robert
--
/"\ ASCII Ribbon Campaign | MS
\ / | MVP
X Against HTML | for
/ \ in e-mail & news | Word

[Cindy M.]

Hi ?B?d29ybGQgYmlibGUgc2Nob29s?=,

I want a button on the toolbar to set orientation to landscape without having
to use page setup button

It appears there isn't any direct command for this that can be assigned to a
button. You'd need to use a macro assigned to a button. For example:

Sub LandscapePaper()
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)