ScreenUpdating 属性

       

如果为 True,则启用屏幕更新。Boolean 类型,可读写。

expression.ScreenUpdating

expression   必需。该表达式返回一个 Application 对象。

说明

当运行某一过程时,ScreenUpdating 属性控制显示器的主要变化情况。如果关闭屏幕更新,屏幕依然显示工具栏,并且 Word 仍允许此过程用状态栏提示、输入框、对话框或信息框等工具来显示和检索信息。关闭屏幕更新可提高某些过程的执行速度。如果此过程已结束,或由于某些错误而停止,请务必将 ScreenUpdating 属性设为 True

示例

本示例将关闭屏幕更新,并添加一篇新文档。将 500 行文本添加至文档中。宏每隔 50 行选定一行并刷新屏幕。

Application.ScreenUpdating = False
Documents.Add
For x = 1 To 500
    With ActiveDocument.Content
        .InsertAfter "This is line " & x & "."
        .InsertParagraphAfter
    End With
If x Mod 50 = 0 Then
    ActiveDocument.Paragraphs(x).Range.Select
    Application.ScreenRefresh
End If
Next x
Application.ScreenUpdating = True