移动selection到指定的书签位置 VBA
请教下各位大侠，如何将选中的shape对象，移动到指定书签所在的位置。
我的代码如下：
Selection.GoTo What:=wdGoToBookmark, Name:="main__sign"; //定位光标在书签位置
Dim sl As Integer
Dim st As Integer
sl = Selection.Information(wdHorizontalPositionRelativeToPage)
st = Selection.Information(wdVerticalPositionRelativeToPage) //获取了光标据页面左边缘和上边缘的位置
For Each sh In ActiveDocument.Shapes
sh sh1.Select (False)
Next
Selection.ShapeRange.Left = sl
Selection.ShapeRange.Top = st
这种方法，当shape对象在页面最上方的时候，会移动到下面来。 当shape对象在页面中间或者下面时，则移出了文档。
请教各位大侠，帮忙看看有什么方法可以解决这个问题嘛？
[解决办法]
sl = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
st = Selection.Information(wdVerticalPositionRelativeToTextBoundary)
