你遇到的-2.14784E+09异常值其实是PPT常量ppIndentLevelNone（数值为-2147483648），表示该段落未单独设置缩进，继承了对应缩进级别的默认样式。问题核心在于你直接读取整个文本框的格式，而非选中段落的专属格式，且未处理默认样式的情况。

关键修正点 #

• 针对选中的目标段落（para对象）读取ParagraphFormat属性，而非整个文本框的TextRange
• 当FirstLineIndent或LeftIndent返回ppIndentLevelNone时，从文本框标尺的对应缩进级别获取默认值
• 给未赋值的leftIndent变量正确赋值

修正后的完整代码 #

Sub ShowCurrentParagraphInfo()
    Dim sel As Selection
    Set sel = ActiveWindow.Selection

    If sel.Type <> ppSelectionText Then
        MsgBox "Please place the cursor inside a text box.", vbExclamation
        Exit Sub
    End If

    Dim tr As TextRange
    Set tr = sel.TextRange

    Dim shp As Shape
    Set shp = sel.ShapeRange(1)

    Dim fullText As TextRange
    Set fullText = shp.TextFrame.TextRange

    Dim paraIndex As Long
    paraIndex = GetParagraphIndexFromTextRange(tr, fullText)

    If paraIndex > 0 Then
        Dim para As TextRange
        Set para = fullText.Paragraphs(paraIndex)
        
        Dim indentLevel As Long
        Dim bulletChar As String
        Dim bulletSize As Variant
        Dim bulletFont As String
        Dim bulletColorRGB As String
        Dim leftIndent As Single
        Dim firstLineIndent As Single
        
        With para.ParagraphFormat
            indentLevel = .IndentLevel
            bulletChar = .Bullet.Character
            bulletSize = .Bullet.RelativeSize * 100
            bulletFont = .Bullet.Font.Name
            If .Bullet.Type <> ppBulletNone Then
                On Error Resume Next
                bulletColorRGB = .Bullet.Font.Color.RGB
                On Error GoTo 0
            Else
                bulletColorRGB = "N/A"
            End If
            
            ' 处理缩进值，区分自定义设置和默认样式
            If .LeftIndent = -2147483648 Then
                leftIndent = shp.TextFrame.Ruler.Levels(indentLevel).LeftMargin
            Else
                leftIndent = .LeftIndent
            End If
            
            If .FirstLineIndent = -2147483648 Then
                firstLineIndent = shp.TextFrame.Ruler.Levels(indentLevel).FirstMargin
            Else
                firstLineIndent = .FirstLineIndent
            End If
        End With

        MsgBox "You are in paragraph number: " & paraIndex & vbCrLf & _
               "Indent level: " & indentLevel & vbCrLf & _
               "Bullet character: " & bulletChar & vbCrLf & _
               "Bullet relative size: " & bulletSize & "%" & vbCrLf & _
               "Bullet font: " & bulletFont & vbCrLf & _
               "Bullet color (RGB): " & bulletColorRGB & vbCrLf & _
               "Left indent: " & leftIndent & " pts" & vbCrLf & _
               "First line indent: " & firstLineIndent & " pts" & vbCrLf & _
               "Text: " & para.Text, vbInformation
    Else
        MsgBox "Couldn't detect the paragraph number.", vbExclamation
    End If
End Sub

Function GetParagraphIndexFromTextRange(tr As TextRange, fullText As TextRange) As Long
    Dim i As Long
    For i = 1 To fullText.Paragraphs.Count
        Dim para As TextRange
        Set para = fullText.Paragraphs(i)

        If tr.Start >= para.Start And tr.Start < para.Start + para.Length Then
            GetParagraphIndexFromTextRange = i
            Exit Function
        End If
    Next i
    GetParagraphIndexFromTextRange = -1
End Function

额外说明 #

• PPT中缩进单位为磅（Points），可根据需求转换为厘米或英寸（1磅≈0.03527厘米）
• TextFrame2是Office 2007+引入的新对象模型，若需兼容旧版本，建议使用TextFrame
• 只有当段落单独设置了缩进时，ParagraphFormat.LeftIndent和FirstLineIndent才会返回具体数值，否则返回ppIndentLevelNone，此时需从对应缩进级别的标尺设置中读取默认值

内容的提问来源于stack exchange，提问作者Miguel de las Nieves