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: Convert Numbers (Rupees) into Words OR Text - Updated Till 1000000 Crore With Decimal Numbers
  2. VBA-Excel: Appending Text to Existing Word Document - at Beginning
  3. VBA-Excel: Format already written text in a word document – Format Paragraphs
  4. Excel-VBA : Send Unique Images Embedded to Mail Body, With Every Mail From MS Outlook using Excel.
  5. VBA-Excel: Add Table and fill data to the Word document