Creating a list of all text in a specific style

gmaxey · #1 10-08-2014, 01:15 PM

What kind of style? Here is one way to list all text with the "Strong" character style applied:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
  With oRng.Find
    .Style = "Strong"
    While .Execute
      ActiveDocument.Range.InsertAfter vbCr & oRng
      ActiveDocument.Paragraphs.Last.Range.Style = "Normal"
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

ljd108 · #2 10-08-2014, 03:29 PM

Hi,

The style I am using is my own custom style and it is called "Glossary Pop-up" would that cause an issue at all? When I run the macro nothing happens?

Thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to set the left indent in a specific style.	OfficeBoy95	Word	2	05-12-2014 06:31 PM
List Style Numbering picks up out of order number from LATER list	spthomas	Word	12	12-16-2013 05:23 PM
How to set style automatically for specific texts	ragesz	Word	2	07-25-2013 07:08 AM
I create a new style but it fails to appear in Quick Style list	veronius	Word	6	06-18-2013 06:29 PM
Get list of text of a style	mavera2	Word	0	03-19-2010 01:59 AM