powerpoint vba中获取TextRange唯一标识

在PowerPoint VBA中，可以使用 `.Start` 和 `.End` 属性来获取TextRange的唯一标识符。这些属性返回TextRange的起始和结束字符位置，您可以将它们组合起来以创建唯一标识符。以下是一个示例代码：

Sub GetTextRangeID()
    Dim slide As Slide
    Dim shape As Shape
    Dim tr As TextRange
    Set slide = ActivePresentation.Slides(1)
    Set shape = slide.Shapes(1)
    Set tr = shape.TextFrame.TextRange
    Debug.Print "TextRange ID: " & tr.Start & "-" & tr.End
End Sub

这段代码假定您想要获取第一个形状的整个文本范围的唯一标识符，并将其输出到控制台中。您可以根据您的情况进行相应的更改。