导出word后，产生自动化错误是怎么回事

导出word后，产生自动化错误是怎么回事
Set MyApp = CreateObject("Word.application")
Set MyDoc = MyApp.Documents.Add
      If Optstyle1.Value Then
           “”·········“
          MyDoc.SaveAs App.Path & "\样式11.doc"
          MyApp.Visible = True
错误指向”“MyDoc.SaveAs App.Path & "\样式11.doc"“”