How to open word using excel if not already open?

[roxnoxsox]

I'm trying to create a macro which will take a screenshot of an internet web page and paste it into word. Then if I paste another screenshot, it will put it in the same word document. However, I can't seem to get this to work so that it checks if word is already open and if so, doesn't keep trying to create a new document.

    Dim mydoc As String
    Dim myAppl As String
    
    mydoc = "W:\ExampleLocation\Example UPLOAD " & Format(Date, "DD-MM-YYYY") & ".docx"
    myAppl = "Word.Application"

    'Check if Word Document exists and if not, create a new workbook and paste
    If Not DocExists(mydoc) Then
        Application.Run "CreateWordDocument"
        Application.Run "TakeScreenshot"
        Application.Run "PasteImagetoWord"
        Exit Sub

    'If Word Document already exists then paste rather than creating a new workbook
    Else
       Application.Run "TakeScreenshot"
       Application.Run "PasteImagetoWord"
    End If

Any clues where I'm going wrong with this? Many thanks