代码中的wdDialogToolsSpellingAndGrammar＝828，828这个值是怎么查到的

vincenthan

Dim Word,Doc,Uncorrected,Corrected
Const wdDialogToolsSpellingAndGrammar = 828
Const wdDoNotSaveChanges = 0

Uncorrected = "Helllo world!"
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = Uncorrected
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show

If Len(Word.Selection.Text) <> 1 Then
Corrected = Word.Selection.Text
Else
   Corrected = Uncorrected
End If

Doc.Close wdDoNotSaveChanges
Word.Quit
我试过如果不赋值828这些值的话代码是过不去的，所以这些值就很关键了，我怎么才能查到这些值呢

winfood

828估计是Word里面的拼写检查对话框编号/ID吧。
找到Word自动化对象模型(Automation Object Model)的参考，从中找到Word.Dialogs对象集合的说明。看看里面有没有提到。

Word自动化对象模型一般可以在Word的VBA帮助里面找到，前提是安装Word时装了VBA相关帮助。
道理差不多就是这些了，自己找一下吧。如果找不到的话，暂时放一下吧。