vba如何遍历每个页脚刷新域

wtotal

一个word文档，有5页，每页是不同的节，但他们都与上一节链接，他们的页脚都是相同的

页脚中的内容是根据页码显示不同的图片，页脚中的内容是用vba插入域来实现的，在word2010中刷新第一个页脚即可在每页起作用，但在word2007中似乎必须在每页上手动刷新(F9)才能让图片显示出来

所以我想知道能不能遍历每个页脚去刷新域，下面的vba似乎不行

    For j = 1 To doc.Sections(i).Footers.Count
        doc.Sections(i).Footers(j).Range.Fields.Update
    Next j

loquat

j = doc.sections.count
for i = 1 to j
    doc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Update
next i

loquat

页眉页脚是按节来计算的，一节只有一个页眉和页脚。。。

wtotal

loquat 发表于 2014-5-11 20:54
页眉页脚是按节来计算的，一节只有一个页眉和页脚。。。

这样不行的，我试过2007里必须每个页脚分别刷新域，即使他们的页脚是相同的

loquat

我也用2007，我这里这样是可以的。

loquat

像你这种情况只能用激活了页眉页脚之后，逐页去刷新。
Selection.Goto wdGotoPage, wdGotoAbsolute, aPageNum
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Expand wdParagraph
Selection.Fields.Update
我倒感觉好像是设置的问题。。。

dongdonggege

loquat 发表于 2014-5-11 22:50
像你这种情况只能用激活了页眉页脚之后，逐页去刷新。
Selection.Goto wdGotoPage, wdGotoAbsolute, aPage ...

在打字时，经常出现：输入1，再输入顿号“、”，回车后，就出现的域。不知道是数字域，还是编号域。
如果是几个，手工删除无所谓，太多了，好像就觉得很累。我的附件，只使用了几个，而且没有间隔。
请问：如何删除这样的域？麻烦大侠编个程序解决，谢谢！！

loquat

Sub 自动编号改手动编号()
Application.ScreenUpdating = False
For Each aList In Lists
   aList.ConvertNumbersToText
Next
Application.ScreenUpdating = True
End Sub