其他答案

2019-04-23 19:32:00

• Dim wapp As Object
  Set wapp = CreateObject("Word.application")
      If wapp Is Nothing Then
      MsgBox "对不起，系统未检测到word安装，请重新检查word是否被正确安装！", , "确定"
     Exit Sub
      End If
   wapp.Application.Visible = True
   Set adoc = wapp.Documents.Open(文件目录及名称)
    
  End Sub

  全部
  

  G***

  2019-04-23 19:32:00

  104 44 评论

  分享
  提交评论
2019-04-23 19:22:00

• 你说的这些,可以采用调用外部命令的方法实现,用shell函数,具体参数可以查帮助,或者上网站上查询.

  全部
  

  怪***

  2019-04-23 19:22:00

  92 48 评论

  分享
  提交评论