Loop to open Word Docs - Avoid Maximizing Already Open Doc

[BrI]

The code below opens Word docs using file paths in each cell in Excel range.

Code works to open the docs OK, but the issue is that it will also maximize one unrelated, already open Word doc (if it exists) that is minimized to the tool bar.

Is there a way to avoid this?


Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Dim rng As Range
Dim ws As Worksheet
Set ws = Worksheets("FilePaths")
NumRows = Range("B2", Range("B1").End(xlDown)).Rows.Count
Set rng = ws.Range("B2:B" & NumRows + 1)
For Each cell In rng
Shex.Open cell.Value
Next cell
End Sub

[offthelip]

I would try forcing EXCEL to start a new version of Word, with code like:


Dim wordApp As Word.Application

Set wordApp = CreateObject("word.Application")
wordApp.Visible = True




Note: totally untested just a guess

[BrI]

Thanks, but this (omitting the Dim statement as throws an error) opens a new blank Word window and maximizes that as well as an existing minimized document.

Also, Setting
wordApp.Visible = False will not show a new blank Word window, but an existing minimized Word document is still maximized - the original problem.

Resolved using the
Documents.Open method for word docs