[Wilson84]

Originally Posted by Stefan Blom

See if the article at http://gregmaxey.mvps.org/Toggle_Data_Display.htm does
what you want.

--
Stefan Blom
Microsoft Word MVP


"DWatkins2008" wrote in message
...
I am working with a table and I would like to make it collapsible so that
users can view the entire table or the can hide the sub-tasks and just
have
an outline view.
Thank you for your assistance.

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