Update word.vba

Code fix