如何把我的代碼放在do while循環中？

Question

我想在word中檢查整個頁面的這個條件。

If Options.CheckGrammarWithSpelling = True Then 
    Selection.Comments.Add Range:=Selection.Range 
    Selection.TypeText Text:="WRONG!!!" 
    'ActiveDocument.CheckGrammar 
Else 
    'ActiveDocument.CheckSpelling 
    'Selection.Comments.Add Range:=Selection.Range 
End If 

Answer 1

您不需要Do While Loop。這是你正在嘗試的嗎？

Sub DoSpellCheckAndComment() 
    Dim oWord As Range 
    Dim StoryRange As Range 

    For Each StoryRange In ActiveDocument.StoryRanges 
     Application.CheckSpelling Word:=StoryRange 
     For Each oWord In StoryRange.Words 
      If Not Application.CheckSpelling(Word:=oWord.Text) Then 
       oWord.Select 
       oWord.Comments.Add Range:=Selection.Range, Text:="WRONG!!!" 
      End If 
     Next oWord 
    Next StoryRange 
End Sub