Word Vba Do While Example