Word Vba Do While Loop