如何将字符串作为单词vba中的代码求值？

Question

我试图基于变量构造代码，然后对其求值。 我已经尝试过了：

FacesMessage

但是，似乎Eval仅在Access中有效。

我也尝试过这个：

Sub Info(theInfo As String)
Dim theCommand As String

theCommand = "Debug.Print Selection.ShapeRange(1)." & theInfo
Eval (theCommand)
End Sub

但这也不起作用。有没有一种方法可以在Word VBA中完成此操作？ 甚至只是使用这样的变量的方法也可以：

Set SC = CreateObject("ScriptControl")
SC.Language = "VBScript"
Debug.Print SC.Eval("1+2")