如何在Excel VBA中引用文本FormField的内置默认值

针对你遇到的表单字段提取问题，这里提供两个核心解决方案：

1. 处理空格形式的空值 #

你遇到的" "是字段未输入内容时的空格占位符，直接判断空字符串或固定空格数不可靠，推荐用Trim()函数去除前后空格后再判断：

Dim targetField As FormField
Dim fieldContent As String

' 指向目标表单字段
Set targetField = ActiveDocument.FormFields(1)
' 去除前后空格
fieldContent = Trim(targetField.Range.Text)

' 若处理后为空，则赋值为""
If fieldContent = "" Then
    fieldContent = ""
End If

' 写入Excel单元格
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = fieldContent

2. 判断并引用表单字段的内置默认值 #

你之前用的TextInput.Default是布尔属性（仅表示是否启用默认值功能），要获取模板设置的默认文本，需用TextInput.DefaultText属性。结合Trim()可以判断当前字段是否使用默认值：

Dim targetField As FormField
Dim currentText As String
Dim defaultText As String

Set targetField = ActiveDocument.FormFields(1)
currentText = Trim(targetField.Range.Text)
defaultText = Trim(targetField.TextInput.DefaultText)

' 如果当前值等于默认值，则转为空字符串
If currentText = defaultText Then
    currentText = ""
End If

' 写入Excel单元格
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = currentText

为什么之前的方法无效？ #

• vbNull是Variant类型的空值，和字符串类型的字段内容不匹配，判断永远不成立；
• 直接判断""时，字段实际返回的是空格字符串，因此条件不触发；
• 硬编码" "不可靠，不同模板的占位空格数量可能不同；
• TextInput.Default仅用于设置/判断是否允许使用默认值，并非获取默认文本内容。

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