如何用VBA代码更新文本框中的域？

Question

我在word中插入一个文本框，文本框中插入一个域，域代码就是文档的一个自定义属性FileCode。当我手工改变FileCode属性的值后，发现只能手工按F9或“右键->更新域”才能更新域的值，用VBA代码更新就无效，为什么？我发现文本框就是比较特别。定位书签也是与正文不同。正文书签直接在菜单“插入—书签—定位”就可以，而文本框中的书签也要先选中该文本框后才能定位。我的VBA代码：
    ActiveDocument.Shapes("Text Box 1").Select
    ActiveDocument.Fields.Update有问题么？有什么办法可以用VBA代码更新文本框中的域么？

Answer 1

改成如下一句：
ActiveDocument.Shapes("Text Box 1").TextFrame.TextRange.Fields.Update