Loop true all opned word document

[elbartje]

Hi all

I want to loop true all opened word documents but my code stays on the first selected file. It also only just loops 2 times even if I have more files opened.

Dim wd As Range

For Each wd In ActiveDocument.Words

wd.Select
MsgBox (wd.Document.Name)
'Do stuff

next wd

[Guessed]

That code is only looping Words, not documents. Try nesting your loops like the following aircode

Dim aDoc as Document, wd as Range
For each aDoc in Application.Documents
  For each wd in aDoc.Words
    'do stuff
  Next wd
Next aDoc