Creating a list of all text in a specific style

gmaxey · #12 10-08-2014, 05:20 PM

Ok, I see it now still runs without error. Change to this and it runs and adds your Words to the end:

Code:

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

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