Collapsing headings of same levels but different content

Naylu · #1 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.

jpb103 · #2 06-19-2014, 12:30 PM

Have you considered using bookmarks instead? You should be able to bookmark blocks of a document and then hide/unhide these sections accordingly.

Naylu · #3 06-19-2014, 07:37 PM

I don't know how bookmarks would work in this case because the individual sections are interspersed throughout the document. For example, the headings might be sequenced:

Bob
John
Jane
John
Karen
Bob
John

jpb103 · #4 06-23-2014, 08:17 AM

I'm not certain it would work but if you want to give it a try, just select all the text in a section of your document you wish to hide, then click Insert -> Bookmark and give it an appropriate name (i.e. Bob1 or John1). Then you could write a macro for collapsing/expanding the bookmarked area, something like this:

Code:

Sub ToggleSection(strSection as String)
If (ActiveDocument.Bookmarks(strSection).Range.Font.Hidden) Then
    ActiveDocument.Bookmarks(strSection).Range.Font.Hidden = False
Else
    ActiveDocument.Bookmarks(strSection).Range.Font.Hidden = True
End If
End Sub

Where strSection is the name of the bookmark for the area you wish to expand or collapse. As for how to activate this macro, you could put a command button at each expand/collapse point that calls the ToggleSection macro (passing the name of the bookmark for that section), or you could do a Ctrl+F9 and in the {} that appear, write "MACROBUTTON ToggleSection("BookmarkName") Toggle" (without quotes). Then you press Alt+F9 to confirm and set up the button (which will just say "Toggle" and will expand/collapse the section whenever it is double clicked). You could, of coarse change the last word in the curly brackets to say anything (it doesn't have to be "Toggle").

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple Userforms Displaying Different Content but Returning Same Content?	marksm33	Word VBA	1	02-24-2014 06:17 PM
More than 10 levels in TOC	NobodysPerfect	Word	4	02-07-2014 12:10 AM
macro for change content of cell2 when content of cell1 changes	Intruder	Excel Programming	1	11-17-2012 08:24 PM
Help with expanding/collapsing lists of check boxes	Craigap	Word VBA	3	02-05-2012 02:34 PM
Package for CD with links to Windows media player content and Flash Shockwave content	hectorh	PowerPoint	4	10-15-2009 12:22 PM