如何在VBA中确定选定内容上方的标题-X样式的标题？

Sub FindTitleXAboveSelection()
    Dim selectedRange As Range
    Dim titleXRange As Range
    Dim titleXText As String
    
    ' 获取选定内容的范围
    Set selectedRange = Selection.Range
    
    ' 向上搜索标题-X样式的标题
    Set titleXRange = selectedRange.Previous(wdParagraph, 1).Find( _
        Format:="标题-X", Forward:=False)
    
    ' 检查是否找到标题-X样式的标题
    If Not titleXRange Is Nothing Then
        ' 获取标题的文本内容
        titleXText = titleXRange.Text
        ' 去除标题中的换行符和空格
        titleXText = Replace(Replace(titleXText, vbCr, ""), " ", "")
        
        ' 输出标题-X样式的标题
        MsgBox "选定内容上方的标题-X样式的标题为：" & titleXText
    Else
        MsgBox "未找到标题-X样式的标题"
    End If
End Sub