WordSetCurrentRange (Range:ComObj);