How to put my code in the do while loop?
===

Macro3 Macro

' I want to check this condition for the whole page in word..please suggest me a method    
    
    
    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
 End Sub