如何使用VBA在MS Word中获取基于标签的单独字符串？

Sub GetTaggedString()
    Dim doc As Document
    Dim rng As Range
    Dim tag As String
    Dim result As String
    
    ' 设置标签名称
    tag = "标签名称"
    
    ' 获取当前文档对象
    Set doc = ActiveDocument
    
    ' 设置范围为整个文档
    Set rng = doc.Content
    
    ' 遍历文档中的每个标签
    For Each fld In doc.Fields
        If fld.Type = wdFieldDocVariable And fld.Code.Text Like "* " & tag & " *" Then
            ' 获取标签所在的范围
            Set rng = fld.Code
            rng.MoveEnd wdCharacter, -1
            rng.Select
            
            ' 获取标签对应的字符串
            result = rng.Text
            
            ' 去除标签名称
            result = Replace(result, tag & " ", "")
            
            ' 输出结果
            MsgBox result
            
            ' 退出循环
            Exit For
        End If
    Next fld
End Sub