Word用户窗体仅显示最后找到的项目

在代码中使用DoEvents命令，以允许用户窗体更新显示。例如，在查找操作中使用以下代码：

DoEvents

如果用户窗体有其他需要更新的部分，则此命令将允许Word更新它们。

示例代码：

Sub FindAndShowUserForm() Dim myUserForm As UserForm1 Set myUserForm = New UserForm1

Selection.HomeKey wdStory

With Selection.Find
    .Text = "Example"
    .Forward = True
    .Wrap = wdFindStop
    .Execute
End With

While Selection.Find.Found
    myUserForm.Show
    DoEvents
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Find.Execute
Wend

End Sub

在此示例代码中，当找到关键字“Example”时，显示用户窗体，并允许其更新显示。然后，将光标向右移动一个字符，以便下次查找时找到下一个实例。重复此过程，直到找不到更多实例。