Using Macros to Style Multiple Table Rows

[briesmith]

I want to apply a styling macro to a selection of rows in a table. I can make
the macro work easily enough but it only does its stuff on the topmost or
first row I have selected.
I want it to format multiple rows (selected using CTRL+RowSelect (right
pointing arrow outside table pointing to desired row)).
It needs to ask itself "have multiple rows been selected?" and if yes, move
down through the table finding all the selected rows and applying the macro
to them as it finds them.
PS I would use the table style tools but they prescribe the rows and cells
you can work on; eg header, last row, top left cell etc. If they included an
option "selected row" or "selected cell" I wouldn't have had to trouble you.
Thank you in advance for any help you can give.

 

[Doug Robbins - Word MVP]

You probably need to be applying the formatting to the .Range of the
Selection.

Just what does the macro do?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[briesmith]

Hello Doug

Thanks for troubling to reply. The macro does the following
LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
Selection.Font.Name = "Arial"
Selection.Font.Size = 8
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorWhite
Selection.Font.Color = wdColorWhite
End Sub
Sub TblHdr()
'
' TblHdr Macro
' Macro recorded 6/26/2007 by Brian E Smith
'
With Selection.Cells.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorIndigo
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
Selection.Font.Name = "Arial"
Selection.Font.Size = 8
Selection.Font.Color = wdColorWhite
Selection.Font.Bold = wdToggle
End Sub

I hope this helps.

Brian Smith

 

[briesmith]

Hello Doug

I don't know if it's relevant but the selected rows probably won't be
adjacent or contiguous but rather selected at varying intervals down the
table.

Brian