Be the first user to complete this post

  • 0
Add to List

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: Maximize, Minimize and Restore Internet Explorer (IE) using Microsoft Excel.
  2. VBA-Excel: Launch Mozilla Firefox using Microsoft Excel.
  3. VBA-Excel: Create a new Word Document
  4. VBA-Excel: Change Font, Color, Weight of Table Data in the Word document
  5. VBA-Excel: Working with Bookmarks- Insert text After Bookmark
  6. VBA-Excel: Add/Insert multiple Images/Pictures from a folder in Word Document
  7. VBA-Excel: Open and Print the Word Document
  8. VBA-Excel: Add/Insert a Image/Picture in Word Document