在word vba运行时创建一个新的选择对象

Question

我之前问过这个问题，但我认为我还不够清楚。

我需要编写一个 Word VBA 宏，该宏将提示用户在宏开始运行后突出显示一些文本，然后处理新的选择。 此过程将在宏内重复未知次数。

我遇到的唯一问题是弄清楚如何让 VBA 宏“暂停”并允许用户做出此选择。 如果有人熟悉 AutoCAD VBA，我正在寻找与 AcadSelectionSet.SelectOnScreen 方法等效的方法。 这看起来如此明显和基本，但我在 Microsoft 帮助文件或在线搜索中找不到任何内容来告诉我如何做到这一点。 如果可以的话请帮忙！

Answer 1

您是否应该查看 Application 对象的 WindowSelectionChange 事件？

在特殊的 ThisDocument 模块中，您需要如下代码：

Public WithEvents app As Application

Private Sub app_WindowSelectionChange(ByVal Sel As Selection)

MsgBox "The selection has changed"

End Sub

显然，将 MsgBox 替换为有用的代码，并使用 Sel 参数来访问选择。 如果您想尝试其他事件，请使用 ThisDocument 模块顶部的下拉菜单

进行设置，您需要在普通代码模块中使用如下宏：

Sub setUpApp()

Set ThisDocument.app = ThisDocument.Application

End Sub

在 setUpApp 之后> 运行一次后，每当选择更改时都会触发 app_WindowSelectionChange 事件

Answer 2

您可以使用无模式表单让宏继续运行，直到满足特定条件：

表单设计器：

• 添加表单。
• 添加一个按钮。
• 添加一个标签。

表单代码：

Option Explicit

Dim m_stopHere As Boolean
Dim m_timesDone As Long

Private Sub CommandButton1_Click()

    m_timesDone = m_timesDone + 1
    m_stopHere = Not DoStuff(m_timesDone)

    Me.Caption = "DoStuff was called " & m_timesDone & " time(s)."

       If m_stopHere Then
    MsgBox "Processing finished, closing form..."
    Unload Me
   End If
End Sub

Private Function DoStuff(times As Long) As Boolean

    Dim myCondition As Boolean

    If times < 5 Then
    MsgBox "You selected: " & Selection.Text
    Selection.Collapse wdCollapseEnd
    myCondition = True
    Else
    Me.Label1.Caption = "No more selections, thanks!"
    End If

    DoStuff = myCondition
End Function

Private Sub UserForm_Initialize()
    Me.Label1.Caption = "Please select some text in Word and press the button."
End Sub

另一个代码模块：

Sub StopAndGo()
    UserForm1.Show vbModeless
End Sub