gray bars
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?
|