如何通过VBA修改Word已有TextBox字号，解决namebox变量未定义报错

问题原因 #

• 你无法直接用选择面板中查到的形状名称作为VBA变量调用，Word不会自动将形状名映射为代码中的对象变量，需要主动从文档形状集合中获取该文本框对象
• 你原有代码的判断逻辑写反了：需求是字符数超过32时字号下调为10，但现有代码是字符数小于32时设为10
• Shape对象本身没有Font属性，需要访问其内部文本范围的字体属性

修正后的代码 #

Dim caName As String
Dim nameLen As Integer
Dim nameBox As Shape ' 声明文本框对象变量
' 从当前文档的形状集合中获取名称为namebox的文本框
Set nameBox = ActiveDocument.Shapes("namebox")

caName = .DataSource.DataFields("Final Display Name").Value
nameLen = Len(caName)

If nameLen > 32 Then ' 修正判断逻辑：超过32字符时用10号字
    nameBox.TextFrame.TextRange.Font.Size = 10
Else
    nameBox.TextFrame.TextRange.Font.Size = 11 ' 32字符及以内用默认11号字
End If

补充说明 #

如果你的文本框放在页眉、页脚、文本框嵌套等非常规正文位置，需要调整获取形状的路径，示例如下：

' 示例：获取第一节首页页眉中的namebox文本框
Set nameBox = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes("namebox")

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