-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: LovedJohnySmith
Message 2 in Discussion
Hello there! This should get you going. In the Visual Basic Editor, at Tools
> Options, make sure you have ticked Auto List Members and Auto Quick Info and
Auto Data Tips. If those are ticked, Word will (usually) help you by letting
you know what options are available. For example, to get a different colour of
shading, delete = wdColorGray125, then go back and type = and it will pop up a
list of valid
choices.
Sub ShadeRowsInTables()
Dim oTable As Table
Dim nCounter As Long
If Not Selection.Information(wdWithInTable) Then
MsgBox "This macro only works if your cursor is in a table."
Else
If MsgBox("This macro will shade every second row of your table." _
& vbCrLf & vbCrLf & "Proceed?", vbYesNo) = vbYes Then
Set oTable = Selection.Tables(1)
For nCounter = 2 To oTable.Rows.Count Step 2
oTable.Rows(nCounter).Range.Shading.BackgroundPatternColor =
wdColorGray125
Next nCounter
End If
End If
End Sub
Hope this helps. Thanks,
Smith
http://spaces.msn.com/JohnySmith
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member
Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you
received this message by mistake, please click the "Remove" link below. On the
pre-addressed e-mail message that opens, simply click "Send". Your e-mail
address will be deleted from this group's mailing list.
mailto:[EMAIL PROTECTED]
