Why code prints an error like “Object required”?

Question

i don\'t know why my code prints an error like "Object required" in line stpos = ARange.End

Public Function CreateNewWordDocument(TempP