Hi Carrie,

So we don't need to start from scratch, you got the macro below to extract
all tags to a separate document:

Dim sBraces As String
Dim oDoc As Document
With Selection
   .HomeKey Unit:=wdStory
   With .Find
       .ClearFormatting
       .Text = "\<*\>"
       .MatchWildcards = True
       Do While .Execute
           sBraces = sBraces & Selection.Text & vbCrLf
       Loop
   End With
End With

Set oDoc = Documents.Add
oDoc.Range.InsertAfter sBraces
oDoc.Range.Sort

You only need to add some code to get the word, once you found the tag, and
remember that word in sBraces:

Sub DaveLettsMacro()
Dim sBraces As String
Dim oDoc As Document
With Selection
 .HomeKey Unit:=wdStory
 With .Find
   .ClearFormatting
   .Text = "\<*\>"
   .MatchWildcards = True
   Do While .Execute
     Call SelectWord
     sBraces = sBraces & Selection.Text & vbCrLf
     Selection.Collapse (wdCollapseEnd)
   Loop
 End With
End With
Set oDoc = Documents.Add
oDoc.Range.InsertAfter sBraces
oDoc.Range.Sort
End Sub

Sub SelectWord()
 Dim strStop As String
 Dim i As Long
 ' List of all characters that may appear between words:
 strStop = ". !?/" & vbCr & vbTab & Chr(11)
 Selection.MoveStartUntil Cset:=strStop, Count:=wdBackward
 Selection.MoveEndUntil Cset:=strStop, Count:=wdForward
End Sub

There might be a lot of complications, say if your tags can contain
characters that also are word delimiters (punctuation).

Word and VBA can deal with "words", but they think that characters like <
and > can not appear inside a word.
So as long as you have the tags, you are fighting Word.

If you'd replace the tags with the actual characters first, things would be
a bit simpler.
For example, you could use Selection.Words(1).Select instead of the macro
SelectWord() above.

Regards,
Klaus