This macro below for some reason is not going through the whole document or all the words to covert, can someone help on this!!!!
We are using microsoft Word 2010.
Thanks!!


Sub Convert_AllCaps_FontFormatting()

'This macro goes through the document and checks the
'Font attributes on the Words for All Caps.
'If the attribute is found then it converts the
'words to actual All Capital Letters.

For a = 1 To ActiveDocument.Words.Count


ActiveDocument.Words(a).Select

If Selection.Font.AllCaps = True Then
Selection.Range.Case = wdUpperCase
End If

Next a
End Sub