提问：VB6设计问题

代码部分：Private Sub Command1_Click()Dim App As ObjectSet App = CreatObject("word.application") 'With App.document.Add.Content.InsertAfter Text1.Text '.saveas "words.doc" '.Close TureApp quitEnd WithEnd(我这是关闭按钮)End subVB说“CreatObject"未定义，如何解决？

网友回答：

你的CreatObject拼错了，正确的是

CreateObject

另外，document没有Add的属性或方法的