word中如何定位到一页的题注

[csdnxhb2]

各位： 想在word的某一页中一个题注（图1-1）的，文本信息但是好像没发找到，代码如下，请帮忙看下那里有问题，谢谢！



cuPage = myWordDocument.GoTo(wdGoToPage, wdGoToAbsolute, pageindex) '定位到具体某一页
myWordDocument.Bookmarks("\page").Range.Select() '选中页
cuPage.Find.Execute(Style:="题注", Forward:=True)
With cuPage.Find
.Style = "题注"
If .Execute = False Then Exit Function
result.Caption = cuPage.Text
End With