powerpoint vba中获取TextRange唯一标识 实例

假设您有一个文本框，其中包含多个不同的文本范围，以下是一个示例代码，用于获取文本框中每个文本范围的唯一标识符并将其输出到控制台中：

Sub GetTextRangeIDs()
    Dim slide As Slide
    Dim shape As Shape
    Dim tr As TextRange
    Dim i As Integer
    Set slide = ActivePresentation.Slides(1)
    Set shape = slide.Shapes(1)
    Set tr = shape.TextFrame.TextRange
    For i = 1 To tr.Runs.Count
        Debug.Print "TextRange " & i & " ID: " & tr.Runs(i).Start & "-" & tr.Runs(i).End
    Next i
End Sub

这段代码假定您想要获取第一个形状的所有文本范围的唯一标识符，并将其输出到控制台中。通过使用 `Runs` 集合，您可以遍历每个文本范围并获取其唯一标识符。您可以根据您的情况进行相应的更改。

相关问题

powerpoint vba中获取TextRange2唯一标识 实例

假设您有一个文本框，其中包含多个不同的文本范围，以下是一个示例代码，用于获取文本框中每个文本范围2的唯一标识符并将其输出到控制台中：

Sub GetTextRange2IDs()
    Dim slide As Slide
    Dim shape As Shape
    Dim tr2 As TextRange2
    Dim i As Integer
    Set slide = ActivePresentation.Slides(1)
    Set shape = slide.Shapes(1)
    Set tr2 = shape.TextFrame2.TextRange
    For i = 1 To tr2.Runs.Count
        Debug.Print "TextRange2 " & i & " ID: " & tr2.Runs(i).Start & "-" & tr2.Runs(i).End
    Next i
End Sub

这段代码假定您想要获取第一个形状的所有文本范围2的唯一标识符，并将其输出到控制台中。通过使用 `Runs` 集合，您可以遍历每个文本范围并获取其唯一标识符。您可以根据您的情况进行相应的更改。

powerpoint vba中数学公式的唯一标识不使用Math Equation 1且不是Equation.3 实例

如果您的数学公式形状不是“Math Equation 1”且不是类别为“Equation.3”的OLE对象，您可以使用以下示例代码来获取其唯一标识：

Private Sub GetMathML()

    ' 获取数学公式的唯一标识
    
    Dim slide As Slide
    Dim shape As Shape
    Dim mathEq As OLEObject
    Dim mathML As String
    
    ' 获取第一张幻灯片
    Set slide = ActivePresentation.Slides(1)
    
    ' 查找数学公式形状
    For Each shape In slide.Shapes
        If shape.HasTextFrame Then
            ' 检查文本框中是否包含数学公式
            If InStr(1, shape.TextFrame.TextRange.Text, "MathType") > 0 Then
                ' 找到数学公式形状
                Set mathEq = shape.OLEFormat.Object
                Exit For
            End If
        End If
    Next shape
    
    If Not mathEq Is Nothing Then
        ' 获取MathML字符串
        mathML = mathEq.MathML
        
        ' 输出MathML字符串
        Debug.Print mathML
    Else
        ' 没有找到数学公式形状
        MsgBox "未找到数学公式"
    End If
    
End Sub

在此示例中，我们遍历第一张幻灯片的所有形状，并检查每个形状的文本框中是否包含“MathType”字符串，这是一种常见的数学公式编辑器。如果找到包含该字符串的形状，则获取其OLE对象并使用MathML属性获取唯一标识字符串。如果未找到形状，则弹出消息框提示用户。