How to open word using excel if not already open?

[Bob Phillips]

How to be precise roxnoxsox without seeing it all, but maybe something like this would work

Sub CreateWordDocument()
Static wd As Object

    If wd Is Nothing Then
    
        Set wd = CreateObject("Word.Document")
        wd.Windows(1).Visible = True
        wd.SaveAs Filename:=("W:\ExampleLocation\Example UPLOAD " _
            & Format(Now(), "DD-MM-YYYY") & ".docx")
    End If
     
End Sub

Not sure how you grab the handle to that new document in your code, so we may be just shifting the problem. May be better to declare wd as a public variable, and use that later.