Word允许您创建依赖于字段来收集信息的特殊形式。可以保护这些表单,以使用户无法修改表单字段之外的文本。 _WordTips_的其他问题已经讨论了创建表单的方式。

创建表单时,有时您可能需要让Word更新表单中计算字段的内容。如果您选中“ Word选项”对话框的“显示”选项中的“打印前更新字段”复选框,则在打印文档时将自动计算这些字段。但是,如果您不想打印整个文档并浪费纸张只是为了看看计算结果如何呢?

快速访问工具栏”。下面的宏就可以了:

Sub UpdateFields()

Dim rngStory As Range          For Each rngStory In ActiveDocument.StoryRanges               rngStory.Fields.Update          Next rngStory End Sub

将宏添加到“快速访问”工具栏中非常重要,因为受保护的表单不允许以其他方式访问宏。

当然,这种方法要求用户记住单击按钮以刷新所有字段。如果愿意,可以将宏分配给任何表单字段的OnExit事件。因此,无论何时“退出”该字段,都将执行宏。一个_WordTips_订阅者还建议使用以下宏作为OnExit宏来更新字段:

Sub UpdateRefsInForm()

Application.ScreenUpdating = False     If ActiveWindow.View.Type = wdPrintView Then         ActiveWindow.ActivePane.View.Type = wdNormalView     Else         ActiveWindow.View.Type = wdPrintView     End If     If ActiveWindow.ActivePane.View.Type = wdNormalView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     Else         ActiveWindow.ActivePane.View.Type = wdNormalView     End If End Sub

这个宏非常聪明,因为它所做的就是从您所在的任何视图(草稿/常规或打印布局视图)切换到另一个视图,然后再次返回。视图模式中的此更改将强制Word更新字段。

注意:

如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

(Microsoft Word是世界上最流行的文字处理软件。)此技巧(9628)适用于Microsoft Word 2007、2010、2013和2016。您可以在此处找到适用于Word的较早菜单界面的该技巧的版本: