2,462
社区成员
发帖
与我相关
我的任务
分享
Dim oShape As Shape
For Each oShape In docNewFile.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
If oShape.TextFrame.HasText Then
oShape.TextFrame.TextRange.Fields.Update
End If
Next