如何在VBA中保存UserForm输入值，用户保存退出重开Word文档后仍可回显？

你当前的实现只有「表单控件值→Word文档内容」的单向写入逻辑，缺少反向读取绑定逻辑，因此重新打开文档启动表单时无法自动加载历史填写数据。只需补充数据持久化存储和表单初始化回显两个模块的代码即可解决问题。

• 第一步：选择数据持久化方案
  两种方案可选，优先推荐自定义文档属性方案，不受正文格式改动影响，读取效率更高：
  1. 自定义文档属性存储：将所有表单字段值同步存在Word内置的自定义属性里，和文档本身绑定保存
  2. 正文内容控件读取：如果你的文档填充用了Word内容控件绑定目标位置，可直接从内容控件中读取已填充的值
     保存数据到自定义属性的示例代码（放在「保存/下一页」按钮的点击事件中，和你现有的正文填充逻辑并行即可）：

  ' 先判断属性是否存在，不存在则新建
  Dim prop As DocumentProperty
  On Error Resume Next
  Set prop = ThisDocument.CustomDocumentProperties("Page1_UserName")
  If Err.Number <> 0 Then
      ThisDocument.CustomDocumentProperties.Add _
          Name:="Page1_UserName", _
          LinkToContent:=False, _
          Type:=msoPropertyTypeString, _
          Value:=TextBox_UserName.Text
  Else
      prop.Value = TextBox_UserName.Text
  End If
  Err.Clear
  ' 其他控件（下拉框、复选框等）依次按上面的逻辑新增对应属性存储即可
  

• 第二步：编写表单初始化回显逻辑
  在UserForm的Initialize事件中添加读取逻辑，将存储的历史值赋值给对应控件：

  Private Sub UserForm_Initialize()
      Dim prop As DocumentProperty
      On Error Resume Next
      ' 回显用户名文本框
      Set prop = ThisDocument.CustomDocumentProperties("Page1_UserName")
      If Err.Number = 0 Then
          TextBox_UserName.Text = prop.Value
      End If
      Err.Clear
      ' 回显部门下拉框
      Set prop = ThisDocument.CustomDocumentProperties("Page1_Dept")
      If Err.Number = 0 Then
          ComboBox_Dept.Text = prop.Value
      End If
      Err.Clear
      ' 回显复选框示例
      Set prop = ThisDocument.CustomDocumentProperties("Page1_IsAgree")
      If Err.Number = 0 Then
          CheckBox_IsAgree.Value = CBool(prop.Value)
      End If
      Err.Clear
      ' 剩余所有控件按以上逻辑依次对应即可
  End Sub
  

• 第三步：补充表单退出自动保存逻辑
  在UserForm的QueryClose事件中添加代码，用户中途退出表单时自动同步当前页已填写的内容到自定义属性和正文中，避免数据遗漏。
• 如果你选择从正文内容控件读取的方案，不需要额外维护自定义属性，直接在初始化事件中读取对应内容控件的值即可，示例：
  TextBox_UserName.Text = ThisDocument.ContentControls("CC_UserName").Range.Text
  注意提前给每个内容控件设置唯一的Tag或Title属性值，方便精准定位读取。

• 所有表单控件和存储字段要一一对应，避免字段名拼写错误导致回显失败
• 测试前需要启用Word宏设置，否则VBA代码不会运行，回显逻辑无法生效
• 涉及数字、日期等格式的控件，回显时可以对应加格式转换逻辑，避免展示格式异常

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