do while 루프에 코드를 삽입하는 방법은 무엇입니까?

Question

전체 페이지에서이 조건을 확인하고 싶습니다.

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

당신은 않지만 루프가 필요하지 않습니다. 이게 너가 시도하는거야?

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