Application.Run 不会将参数传递给不同 .docm 模板中的宏，但可以在 VBA 模块中使用

VBA

使用 Application.Run 不会将参数传递给不同 .docm 模板中的宏，但可以在 VBA 模块中使用

在编写 VBA 宏时，我们经常会使用 Application.Run 方法来调用其他模块或文档中的宏。然而，需要注意的是，使用 Application.Run 方法时，并不能直接将参数传递给不同的 .docm 模板中的宏。但是，我们可以通过在 VBA 模块中定义参数，并在调用宏时使用这些参数来实现类似的功能。

下面我们通过一个案例来说明这个问题。假设我们有一个 .docm 模板文件，其中包含两个宏：Macro1 和 Macro2。我们希望在执行 Macro1 时传递一个参数给 Macro2，然后在 Macro2 中使用这个参数。首先，我们需要在 VBA 模块中定义一个全局变量来接收参数。在 VBA 编辑器中打开 .docm 文件，然后在模块中添加如下代码：

VBA
Public myParameter As String

上述代码定义了一个名为 myParameter 的字符串变量，用于接收参数。接下来，我们在 Macro1 中调用 Macro2，并传递参数给它。在 VBA 模块中添加如下代码：

VBA
Sub Macro1()
    myParameter = "Hello, World!"
    Application.Run "ThisDocument.Macro2"
End Sub

上述代码通过给 myParameter 赋值来传递参数给 Macro2，然后使用 Application.Run 方法调用 Macro2。最后，我们在 Macro2 中获取并使用参数。在 VBA 模块中添加如下代码：

VBA
Sub Macro2()
    Dim parameterValue As String
    parameterValue = ThisDocument.myParameter
    MsgBox "Received parameter: " & parameterValue
End Sub

上述代码通过访问 ThisDocument 对象的 myParameter 属性来获取参数，并在消息框中显示出来。

现在，我们可以执行 Macro1 来验证参数传递的功能。执行 Macro1 后，会调用 Macro2，并在消息框中显示出参数值 "Hello, World!"。

虽然使用 Application.Run 方法不能直接将参数传递给不同的 .docm 模板中的宏，但我们可以通过在 VBA 模块中定义全局变量来传递参数。通过上述案例的演示，我们可以更好地理解如何在 VBA 中使用 Application.Run 方法来实现参数传递的功能。