OK this is my implementation of Advanced Words
Sub Loop_all_words_with_VBA_in_MS_Word()
Dim wds As VBA.Collection, wd As Range, d As Document
Set d = ActiveDocument
Set wds = Loop_all_words_with_VBA_in_MS_Word_GetWords(d)
For Each wd In wds
Rem do what you want
Rem the four lines below are for checking it out only
wd.Select
…
Top comments (0)