Quote:
Originally Posted by Stefan Blom
|
This definitely does what you want BUT i found it limited to hiding ONE ROW ONLY. I am not great with code and have been musing over this for hours. How can i adapt the following so that a toggle hides multiple rows at a time?
Private Sub ToggleButton1_Click()
With ActiveDocument.Tables(6).Rows(4)
If .HeightRule = wdRowHeightExactly Then
.HeightRule = wdRowHeightAuto
ToggleButton1.Caption = "Ignore"
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
Else
ToggleButton1.Caption = "Include"
.HeightRule = wdRowHeightExactly
.Height = ".5"
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
End If
End With
lbl_Exit:
Exit Sub
End Sub
Thanks for any assistance