Run the following macro on the document and it will create a list of all of
the characters at the end of it with the number of times that each appears:
Dim i As Long, j As Long
For i = 65 To 122
j = 0
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=Chr(i), MatchWildcards:=False,
MatchCase:=True, Wrap:=wdFindStop, Forward:=True) = True
j = j + 1
Selection.Collapse wdCollapseEnd
Loop
End With
ActiveDocument.Range.InsertAfter Chr(i) & vbTab & j & vbCr
Next i
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP