交叉引用自定义引用类型

我正在尝试将交叉引用添加到 SEQ 字段中。
我的文档包含“点标题”，这意味着在两个标题元素之间，用户可以添加扩展名（1.1 和 1.2 之间可能是 1.1A、1.1B，...）

点标题代码如下所示：
{STYLEREF "HEADING 2" \N}{SEQ "HEADING 2 POINT" \* ALPHABETIC \S 2}
结果为：1.1A

我希望能够对点标题进行交叉引用。
虽然我可以将引用类型设置为“标题”，但我不知道如何将其引用到自定义元素。

在网上搜索并没有找到任何解决方案，但有一些线索表明它可能是可能的：

• 这个网站 http://wordfaqs.ssbarnhill.com/FormatCrossReferences.htm它解释了交叉引用格式，包含具有自定义类型的图像（我的新标题）。
• 微软文档 https://learn.microsoft.com/en-us/office/vba/api/word.selection.insertcrossreference描述ReferenceType is: The type of item for which a cross-reference is to be inserted. Can be any WdReferenceType or WdCaptionLabelID constant 或用户定义的标题标签.

我的客户习惯于使用交叉引用对话框，因此我更喜欢这种方法，但 VBA 脚本也将受到赞赏。

Thanks!

Update:

我将尝试描述我的限制和环境。
标题 1-9 在多级列表项中使用，因此它们具有自定义样式。
它们无法改变。

对于具体任务，进行描述和回答here https://stackoverflow.com/questions/49717460/creating-a-dynamic-list-number-in-ms-word-using-vba，我创建了所谓的“点标题”。
“点标题”基本上是用户可以使用 VBA 宏在多级编号之间添加的扩展。
假设我有两个标题 2 项（1.1、1.2），用户可以添加 1.1A，然后添加 1.1B，依此类推。
用户可以添加从 2 级到 5 级的点标题。
他们的风格是“标题2点”、“标题3点”等等，每一种都是基于其相关的标题。

如上所述，最终在文档中，word字段具有以下结构：{STYLEREF "HEADING 2" \N}{SEQ "HEADING 2 POINT" \* ALPHABETIC \S 2}.

我的目标是能够交叉引用这些项目，但它们不会出现在标题类型中，因为它们不是标题样式。

我希望能够创建一个自定义引用类型，它将显示这些项目。

经过一番研究，这是我的答案。希望它会对未来的观众有所帮助。

Private Sub createPointHeader(pointLevel As Integer, Optional appendixPrefix As String = "")
Dim sQuote As String, referencedStyle As String, captionName As String
sQuote = Chr(34)
referencedStyle = appendixPrefix & "Heading " & pointLevel
captionName = referencedStyle & " Point"
With Selection
    .Fields.Add .Range, wdFieldEmpty, "StyleRef " & sQuote & referencedStyle & sQuote & " \n", False
    .Collapse wdCollapseEnd
    CaptionLabels.Add (captionName)
    .InsertCaption Label:=captionName, ExcludeLabel:=True
    ' Select the created field
    .MoveLeft Count:=1, Extend:=True
    ' Replace the syntax from Arabic to Alphabetic
    .Fields.ToggleShowCodes
    With .find
        .Text = "ARABIC"
        .Forward = False
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
        If .Found = True Then
            Selection.Range.Text = "ALPHABETIC \s " & pointLevel
        End If
    End With

    .Fields.ToggleShowCodes
    .Fields.Update
    .MoveRight Count:=1
    .InsertAfter vbTab
    .Collapse wdCollapseEnd
    ' Apply style after .InsertCaption, because it changes the style to Caption
    .Style = ActiveDocument.Styles(referencedStyle & " Point")
    End With
End Sub

几句话

• 我有两种样式可供参考：标题 (2-5) 和附录标题 (2-5)。这就是可选附录前缀作为子变量的原因。
• CaptionLabels.Add正如我所检查的，可以获得相同的值。无需提前检查它是否已经存在。
• Selection.InsertCaption自动将样式更改为Caption。这就是我最后应用样式更改的原因。

结果

• 这是如何点标题 2好像：
  {STYLEREF "HEADING 2" \N"}{SEQ HEADING_2_POINT \* ALPHABETIC \S 2}

• Snapshot of the document with the point headings

• And finally, as requested, cross reference to the Point headings from the Cross reference box