[mso] Re: Testing LineWrap macro for Peter

  • From: "Peter Chiavaro" <kp@xxxxxxxx>
  • To: <mso@xxxxxxxxxxxxx>
  • Date: Wed, 22 May 2002 05:40:42 -0400

Hello Mr. Greg.

This is fantastic. You code bugs never cease to amaze me.

I'm a little embarrassed though....

I know how to copy and paste, but just where do I paste it. I'm sure it =
goes in MS Word somewhere. Maybe in the visual basic editor, but then =
what? How do I hang it on a button or shortcut key?

Dumb as a box of rocks.

Thanks.
Peter C.
Stuart, Florida
? Kp@xxxxxxxx
-_-_-_-_-_-_-_-_-
ICQ =3D 412633



-----Original Message-----
 Sub TurnOffLineWrap()

Dim objview

Set objView=3DActiveWindow.View

If objView.WrapToWindow=3DTrue Then objView.WrapToWindow=3D False

End Sub


Sub TurnOnLineWrap()

Dim objView

Set objView=3DActiveWindow.View

If Not  objView.WrapToWindow Then objView.WrapToWindow=3D True

End Sub

Greg Chapman
=20

*************************************************************
PLEASE READ!!!!

You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx with 
a subject line that says "unsubscribe" (without the quotes).  Do not put 
unsubscribe IN CAPS.  Screaming doesn't get you out any faster and the caps 
prevent the function from working.

To change your email settings to digest or vacation (no mail), visit the 
group's homepage for full instructions.

//www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.
*************************************************************

Other related posts: