Excel VBA(Office 16)是否有等效Word Variables集合的属性？

Office 16版本的Excel VBA没有和Word VBAActiveDocument.Variables完全同名的等价集合，但提供了两类原生能力，无需依赖隐藏工作表即可直接在工作簿文件内持久化存储自定义值，完全匹配需求：

• 方案1：自定义文档属性（和Word文档变量使用逻辑最接近） #

  这是Office全组件通用的文档级元数据存储容器，数据直接嵌入工作簿文件结构，和工作表完全独立，不会因为工作表删除、隐藏状态变化丢失数据，适合存储短文本、数值、日期这类单值参数。
  基础操作代码示例：

  ' 写入/更新自定义值
  Sub SetCustomValue(key As String, val As Variant, valType As MsoDocProperties)
      On Error Resume Next
      ' 键已存在时直接更新值
      ThisWorkbook.CustomDocumentProperties(key).Value = val
      If Err.Number <> 0 Then
          ' 键不存在时新建属性
          ThisWorkbook.CustomDocumentProperties.Add _
              Name:=key, _
              LinkToContent:=False, _
              Type:=valType, _
              Value:=val
      End If
      On Error GoTo 0
  End Sub
  
  ' 读取自定义值
  Function GetCustomValue(key As String) As Variant
      On Error Resume Next
      GetCustomValue = ThisWorkbook.CustomDocumentProperties(key).Value
      If Err.Number <> 0 Then GetCustomValue = Empty
      On Error GoTo 0
  End Function
  

  限制：单个属性的字符串值长度上限为255字符，适合存短参数。

• 方案2：自定义XML部件（适合存储长文本、结构化数据） #

  从Office 2007版本开始支持的文档扩展存储能力，Office 16完全兼容，没有单值长度限制，支持存储任意长度文本、序列化后的结构化数据，同样和工作表完全解耦。
  基础操作代码示例：

  ' 写入自定义内容
  Sub SetXMLStorage(content As String)
      Dim xmlPart As CustomXMLPart
      Const STORAGE_NS As String = "http://custom/project-storage"
      ' 清理旧的同命名空间存储，避免重复
      For Each xmlPart In ThisWorkbook.CustomXMLParts
          If xmlPart.NamespaceURI = STORAGE_NS Then xmlPart.Delete
      Next
      ' 写入新内容，可直接传入任意长度文本，也可传入标准XML格式的结构化数据
      ThisWorkbook.CustomXMLParts.Add "<config><content>" & content & "</content></config>"
  End Sub
  
  ' 读取存储内容
  Function GetXMLStorage() As String
      Dim xmlPart As CustomXMLPart
      Const STORAGE_NS As String = "http://custom/project-storage"
      For Each xmlPart In ThisWorkbook.CustomXMLParts
          If xmlPart.NamespaceURI = STORAGE_NS Then
              GetXMLStorage = xmlPart.SelectSingleNode("//content").Text
              Exit Function
          End If
      Next
      GetXMLStorage = ""
  End Function
  

注意：不要使用BuiltinDocumentProperties内置文档属性存储自定义值，这部分是Office预留的标准元数据字段（如作者、标题、创建时间），修改会影响文档默认属性展示。

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