VBA怎么在word页眉中画一个文本框

VBA如何在word页眉中画一个文本框？
在正文中画文本框的代码： ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90#, 22#, 90#, 31.2).Select

但如果点“视图\页眉和页脚”，在页眉中执行这句，就报错：“无法在视图中访问此成员”，为什么？如何在页眉中画文本框呢？当然不是用手工的画法。谢谢！

[解决办法]

VB code

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader    NormalTemplate.AutoTextEntries("创建日期 ").Insert Where:=Selection.Range, RichText:=True