This is causing error in the following:
If word.Text = word.Next.Words(1).Text Then
Run-time error 91:
Object variable or With block variable not set