Microsoft Office Forums - View Single Post - [Solved] Creating a list of all text in a specific style

gmaxey · 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