How to place the code in a do while loop?

Hi friends,
I would like to ensure this form for the entire page in word.
Please help me to find 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
I am totally confused. Please help.
Thanks a lot.
