回答正确马上给分（决不食言）

Question

这样呢
Dim doc As new wordctl.Document

Answer 1

我想你要运行，机器上必须先装上WORD！

Answer 2

Dim Word As Word.Application
Dim Doc As Word.Document

Answer 3

在工具菜单下的引用里选上microsoft word对象库

Answer 4

你把Dim Doc As New Document
修改为Dim Doc As object然后在
Private Sub Command1_Click()
Form1.Caption = "拼写检查"
这个之后加入
Set Doc = CreateObject("word.document")
这条语句就可以了

Answer 5

Dim Word As Word.Application
Dim Doc As Word.Document

Answer 6

哪有定义时就new 的.
dim word as word.application
set word=new word.application

Answer 7

Dim Doc As Word.Document

Answer 8

必须输入字典:
 CheckSpelling([CustomDictionary], [IgnoreUppercase], [AlwaysSuggest], [CustomDictionary2], [CustomDictionary3], [CustomDictionary4], [CustomDictionary5], [CustomDictionary6], [CustomDictionary7], [CustomDictionary8], [CustomDictionary9], [CustomDictionary10])
或先定义字典:
GetSpellingSuggestions([CustomDictionary], [IgnoreUppercase], [MainDictionary], [SuggestionMode], [CustomDictionary2], [CustomDictionary3], [CustomDictionary4], [CustomDictionary5], [CustomDictionary6], [CustomDictionary7], [CustomDictionary8], [CustomDictionary9], [CustomDictionary10])
你的代码是不是只截了一些过来.