这段代码中通过if语句在不同条件下执行的不同语句我觉得结果好像是一样的

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
if语句不同条件后执行的语句我怎么觉得是一回事呢，好像没什么区别，只不过用了不同的变量，而且调用了拼写检查器到底要实现什么，没看明白，有谁能帮我分析一下吗，谢谢了

hsjzfling

这个if判断貌似就是不管怎样，就是要让Corrected = "Helllo world!"...而和你的判断条件是否成立是无关的。。。

danmy

Word.Selection.Text = Uncorrected

为什么要有这句啊？ 这样if只能走到else里了吧？

rivermen

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


可不都是一样的？

walker1020

楼主，你从哪里找到了这些代码？

xiao851103

我是菜鸟，确实没看出有什么不一样来？？？sdlkfj5

vincenthan

就是在QTP的帮助里面

rivermen

我不是已经帮你用颜色标出来了吗？


if 判断之前
Uncorrected
Word.Selection.Text

他们的值都是"Helllo world!"

那么无论条件判断如何，结果都是一样的

jackymail

呵呵

kangaroo

LZ对着程序画一遍流程图就知道了