[Rotorman]

How can I place alternating gray bars on my text document to make scanning
across the page easier?

[CyberTaz]

What version of Word? It might be possible to "rig" something but not by way
of any built-in option.

Regards |:)
Bob Jones
[MVP] Office:Mac



On 6/13/08 10:40 AM, in article
, "Rotorman"
wrote:

How can I place alternating gray bars on my text document to make scanning
across the page easier?

[StevenM[_2_]]

To: Rotorman,

Is each line a paragraph? (A "paragraph" is merely text which ends with a
paragraph mark. By toggling the Show/Hide icon, you can see the otherwise
invisible paragraphs.) If so, would it be possible to put your text in a
table? If every text is a paragraph, you could place it into a one-column
table. Once the text is in a table. You could run the following macro.

'****
'* Macro: ShadeEveryOtherRow shades every other row of a table.
'* If you add new rows to the table, just re-run this macro.
'* If you want the first row to be shaded, change "bClear = True" to False.
'* There are a number of different shades of Grey possible,
'* wdColorGray05 is very light, wdColorGray50 is very dark,
'* by increments of five, there are shades between these two.
'****
Sub ShadeEveryOtherRow()
Dim oRow As Row
Dim bClear As Boolean
If Selection.Information(wdWithInTable) = False Then
MsgBox "The cursor must be positioned in the table you want to
shade." _
& vbCr & vbCr & "Position the cursor and run this macro
again."
Else
bClear = True
For Each oRow In Selection.Tables(1).Rows
If bClear Then
oRow.Shading.BackgroundPatternColor = wdColorWhite
Else
oRow.Shading.BackgroundPatternColor = wdColorGray10
End If
bClear = Not bClear
Next oRow
End If
End Sub

Steven Craig Miller

"Rotorman" wrote:

How can I place alternating gray bars on my text document to make scanning
across the page easier?