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

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