我正在寻找一个VBA代码来复制活动幻灯片中的文本

Sub CopyTextFromActiveSlide()
    Dim slide As Slide
    Dim shape As Shape
    Dim textRange As TextRange
    
    ' 获取活动幻灯片
    Set slide = ActiveWindow.View.Slide
    
    ' 遍历幻灯片上的所有形状
    For Each shape In slide.Shapes
        ' 检查形状是否为文本框
        If shape.HasTextFrame Then
            ' 获取文本框中的文本范围
            Set textRange = shape.TextFrame.TextRange
            ' 复制文本范围的内容到剪贴板
            textRange.Copy
            ' 可以在这里进行其他操作，如将文本粘贴到其他位置
            ' ...
        End If
    Next shape
End Sub