Word Vba Loop Through Array