sub M_snb()
  c00 = "W:\ExampleLocation\Example UPLOAD " & Format(Date, "DD-MM-YYYY") & ".docx"

  if dir(c00)="" then
    with createobject("Word.document")
      .saveas2 c00
      .close
    end with
  end if

  with getobject(c00)
    TakeScreenshot      
    PasteImagetoWord
    .close -1
  end with
End Sub