As I said, you must replace the constants with the number it represents, i e in stead of
WordObj.Selection.GoTo what:=wdGoToBookmark, ...
use
WordObj.Selection.GoTo what:=-1, ...
and wdLine with 5 further down.
There might be other issues, too, but try that first.