更新表单中的计算字段(Microsoft Word)
Word允许您创建依赖于字段来收集信息的特殊形式。可以保护这些表单,以使用户无法修改表单字段之外的文本。 _WordTips_的其他问题已经讨论了创建表单的方式。
创建表单时,有时您可能需要让Word更新表单中计算字段的内容。如果在“选项”对话框的“打印”选项卡上选中“更新字段”复选框,则在打印文档时将自动计算字段。在Word 2000之前的Word版本中,使用“打印预览”时也会自动计算字段。 (这在Word 2000中有所改变;需要真正的打印。)但是,如果您不想打印整个文档而浪费纸张,只是为了查看计算结果,该怎么办?
解决方案是创建一个简单的宏并将该宏分配给工具栏按钮。下面的宏就可以了:
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 = wdPageView Then ActiveWindow.ActivePane.View.Type = wdNormalView Else ActiveWindow.View.Type = wdPageView End If If ActiveWindow.ActivePane.View.Type = wdNormalView Then ActiveWindow.ActivePane.View.Type = wdPageView Else ActiveWindow.ActivePane.View.Type = wdNormalView End If End Sub
这个宏非常聪明,因为它所做的就是从您所在的视图(“普通”或“页面”视图)切换到另一个视图,然后再次返回。视图模式中的此更改将强制Word更新字段。
注意:
如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
(Microsoft Word是世界上最流行的文字处理软件。)本技巧(1445)适用于Microsoft Word 97、2000、2002和2003。您可以在Word(Word 2007)的功能区界面中找到此技巧的版本。和更高版本)在这里: