Be the first user to complete this post
|
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:
- VBA-Excel: Modified Consolidator – Merge or Combine Multiple Excel Files Into One Where Columns Are Not In Order
- VBA-Excel: Convert Numbers (Rupees) into Words OR Text - Updated Till 1000000 Crore With Decimal Numbers
- VBA-Excel: Add Table and fill data to the Word document
- VBA-Excel: Maximize, Minimize and Restore Internet Explorer (IE) using Microsoft Excel.