dim Doc

With CreateObject("Scripting.FileSystemObject")
  Doc = .BuildPath(.GetParentFolderName(WScript.ScriptFullName), _
  "install.docm")
End With
With CreateObject("Word.Application")
    .Visible = True
    .Documents.Open Doc
End With