主题：[求助]如何批量修改WORD页眉

1、这个判断进入执行了没有？

If app.Selection.Find.Execute("[编号]") Then '查找到指定字符串

    msgbox(123)
    app.Selection.Text ="" &r("工号") & "-" &r("姓名") & "" '此处只能用第一条记录的工号和姓名替换字符串[编号]

    msgbox(app.Selection.Text_
End If

2、你的页眉怎么设计的？截图贴出来。