Microsoft Office Forums - View Single Post - [Solved] Collapsing headings of same levels but different content

Naylu · 06-17-2014, 11:58 AM

I've got a document that's divided only by level 1 headings to distinguish between different contributors. I'm trying to create a macro that will allow me to collapse all headings except the ones written by the selected contributor.

So far I have this:

Code:

Sub OpenJohn()
'
' OpenJohn Macro
' Opens all John Segments
'
'    Expand all menus
    ActiveDocument.ActiveWindow.View.ExpandAllHeadings
'    Move cursor to the top
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.HomeKey Unit:=wdStory
'    Find first menu using format: Heading 1
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Execute
'    Loop through document collapsing heading if not equal to "John"
Do Until Selection.Find.Found = False
    If Selection.Text Like "John*" Then
        Selection.Find.Style = ActiveDocument.Styles("Heading 1")
        Selection.Find.Execute
    Else: Selection.Paragraphs(1).CollapsedState = True
        Selection.Find.Style = ActiveDocument.Styles("Heading 1")
        Selection.Find.Execute
    End If
Loop
'    Move cursor to story start
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
End Sub

But it's not working for some reason.