MS Word VBA中如何将字符串格式命令作为代码执行？

方法一：使用CallByName动态设置属性（推荐） #

你的需求是固定对象前缀ActiveDocument.Words(intWordPointerL).Font.，仅动态变化属性名和赋值，完全不需要执行完整的字符串命令，用CallByName就能高效解决：

Sub SetDynamicFontProperty()
    Dim intWordPointerL As Integer
    intWordPointerL = 3 ' 替换为你的实际单词索引
    Dim propAssignment As String
    propAssignment = "Italic = True" ' 替换为你的动态属性字符串
    
    ' 拆分属性名与赋值内容
    Dim propParts() As String
    propParts = Split(propAssignment, "=")
    Dim propName As String: propName = Trim(propParts(0))
    Dim propValueStr As String: propValueStr = Trim(propParts(1))
    
    ' 转换值为对应数据类型（这里先处理布尔值，可扩展其他类型）
    Dim propValue As Variant
    Select Case UCase(propValueStr)
        Case "TRUE": propValue = True
        Case "FALSE": propValue = False
        Case Else
            ' 处理数字、字符串等其他类型
            If IsNumeric(propValueStr) Then
                propValue = CDbl(propValueStr)
            Else
                propValue = propValueStr
            End If
    End Select
    
    ' 动态设置属性
    CallByName ActiveDocument.Words(intWordPointerL).Font, propName, vbLet, propValue
End Sub

方法二：动态创建临时模块执行代码 #

如果必须执行完整的命令字符串，可以通过动态创建VBA模块的方式实现，适配Word的版本如下：

前置准备 #

在Word选项的信任中心→信任中心设置→宏设置中，勾选「信任对VBA项目对象模型的访问」，否则代码会报错。

实现代码 #

Sub RunDynamicCommand()
    Dim intWordPointerL As Integer
    intWordPointerL = 3 ' 替换为你的实际单词索引
    Dim fullCommand As String
    fullCommand = "ActiveDocument.Words(" & intWordPointerL & ").Font.Italic = True"
    
    Dim vbProject As Object
    Dim tempModule As Object
    
    ' 创建临时模块
    Set vbProject = ThisDocument.VBProject
    Set tempModule = vbProject.VBComponents.Add(1) ' vbext_ct_StdModule的数值为1
    
    ' 写入临时执行过程
    tempModule.CodeModule.AddFromString _
        "Sub TempRun()" & vbCrLf & _
        "    " & fullCommand & vbCrLf & _
        "End Sub"
    
    ' 执行临时过程
    Application.Run tempModule.Name & ".TempRun"
    
    ' 清理临时模块
    vbProject.VBComponents.Remove tempModule
    
    Set tempModule = Nothing
    Set vbProject = Nothing
End Sub

注意事项 #

• 这种方法存在安全风险，若命令字符串来自外部输入，需做好校验防止恶意代码注入。
• 每次执行都会创建并删除模块，频繁调用可能影响性能。

内容的提问来源于stack exchange，提问作者Trey Shaffer