One other thing: the text has a carriage return added to the end of it, so after using oWord.Selection.Text to get the text, use cText = left(cText, len(cText) - 1) to strip it off.

Doug