使用vba代码缩进段落后，Word文档无法直观反映更改

Question

我在Word 2010中有一个简单的vba代码：

Sub IncreaseIndent()
    For Each p In Selection.Paragraphs
        p.LeftIndent = p.LeftIndent + InchesToPoints(0.25)
        p.FirstLineIndent = InchesToPoints(-0.25)
    Next
End Sub

它的功能很好，可以满足我的需求，并且可以将其与快捷键关联。 但是我试图找出它的最后一个故障。 当我使用它时，该段落会缩进，但在视觉上无法在文档中正确刷新。 我必须滚动以使文本不可见，然后再滚动回去。 （使Word重新呈现的任何操作都可以正常工作，例如切换到另一个窗口位于Word顶部的程序，然后再次返回。）此后，该段落将按预期显示。

我以为我缺少某种p.Refresh / Re-render / Recalc命令，但是不知道那是什么。 有人知道如何在VBA代码中引起刷新吗？

谢谢，桑德拉

Answer 1

我无法复制您描述的内容，但是有一个.ScreenRefresh方法可以解决这个问题。

https://msdn.microsoft.com/zh-CN/library/office/ff193095(v=office.15).aspx

注意：在MSDN提供的示例代码中（下面进行了少许修改），当我对其进行测试时，切换的ScreenUpdating属性无效，即使我将其显式设置为False ，它在运行时也总是对我更新

Sub t()

Dim rngTemp As Range

Application.ScreenUpdating = False

Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)

rngTemp.InsertBefore "new"
Application.ScreenRefresh

Application.ScreenUpdating = True

End Sub