从excel vba中使用.Run调用的外部子（在word中）返回数据

Question

无法解决问题，我在Excel VBA例程中运行了Word VBA例程。我选择使用Call wdApp.Run(.....在字外部运行sub，并将值从Excel sub传递给Word sub。

Word中的宏搜索某些短语。它的工作原理但是..现在的问题是如何将搜索结果传递回Excel Sub。

Answer 1

Sub程序不返回任何内容。您需要Function。

Public Function GetFoo(ByVal bar As Long) As Long
    GetFoo = bar * 42 'assign to the function's identifier to set return value
End Function

然后你可以得到它的返回值：

Dim result As Long
result = wdApp.Run("GetFoo", 10)