Hmmmm. Replace that line with the following

Set oRng = wdDoc.Range
oRng.Collapse 1