VBA-Excel: Enumerate all the opened word document

To enumerate all the already opened Microsoft Word Document using Microsoft Excel, you need to follow the steps below:

• Create the object of Microsoft Word application object
• Make the MS Word visible
• Print all the word doc’s name and path

Create the object of Microsoft Word application object

Set objWord = GetObject(,"Word.Application")

Make the MS Word visible

objWord.Visible = True

Print all the word doc’s name and path

For each objDoc In objWord.Documents

Msgbox objDoc.Name

Next

Complete Code:

Function FnEnumerateAllWordDoc()

   Set objWord = GetObject(,"Word.Application")

   objWord.Visible = True

   For Each objDoc In objWord.Documents

      Msgbox “Name: “ & objDoc.Name & “ And “ & objDoc.Path

   Next

End Function

Also Read:

1. VBA-Excel: Modified Consolidator – Merge or Combine Multiple Excel Files Into One Where Columns Are Not In Order
2. VBA-Excel: Working with Bookmarks- Insert text before Bookmark
3. VBA-Excel: Working with Bookmarks- Insert text After Bookmark
4. VBA-Excel: Format already written text in a word document – Format Paragraphs
5. VBA-Excel: Add Worksheets For All The Given Dates Except Weekends and Copy The Common Template In Each Worksheet