Sub process()
Dim myPar As Paragraph
Dim myStr As String
Dim myStr2 As String
For Each myPar In ActiveDocument.Paragraphs
myPar.Range.Select
Selection.End = Selection.End - 1
If Selection Like "#####" Then
myStr = Selection
If myStr <> "" Then
myStr = Chr(34) & myStr & Chr(34) & ", " & Chr(34) & myStr & "A" & Chr(34) & ", " & Chr(34) & myStr & "B" & Chr(34) & ", " & Chr(34) & myStr & "C" & Chr(34) & ", " _
& Chr(34) & myStr & "D" & Chr(34) & ", " & Chr(34) & myStr & "E" & Chr(34) & ", " & Chr(34) & myStr & "F" & Chr(34) & ", " & Chr(34) & myStr & "G" & Chr(34)
If myStr2 = "" Then
myStr2 = myStr
Else
myStr2 = myStr2 & ", " & myStr
End If
End If
End If
Next
MsgBox myStr2
Selection.WholeStory
Selection = myStr2
End Sub