This example displays the contents of the window for Document1 in the draft font.
Windows("Document1").View.Draft = True
This example toggles the draft font option for the active window.
ActiveDocument.ActiveWindow.View.Draft = _
Not ActiveDocument.ActiveWindow.View.Draft