PowerPoint 365 VBA：如何为选中文本赋值变量并按需切换文本范围

以下是满足需求的VBA代码，实现优先使用选中文本，选中文本长度>1时用选中内容，否则用形状全部文本的逻辑：

Dim sld As Slide
Dim Shp As Shape
Dim Txt As String
Dim selectedText As TextRange2

Set sld = Application.ActiveWindow.View.Slide
Set Shp = sld.Shapes(2)

If Shp.TextFrame2.HasText Then
    ' 检查是否有文本被选中
    If Application.ActiveWindow.Selection.Type = ppSelectionText Then
        Set selectedText = Application.ActiveWindow.Selection.TextRange2
        ' 判断选中文本长度是否大于1
        If Len(selectedText.Text) > 1 Then
            Txt = Replace(selectedText.Text, " ", "+")
        Else
            Txt = Replace(Shp.TextFrame2.TextRange.Text, " ", "+")
        End If
    Else
        ' 无选中文本时直接使用全部文本
        Txt = Replace(Shp.TextFrame2.TextRange.Text, " ", "+")
    End If
End If

关键逻辑说明： #

• 通过Application.ActiveWindow.Selection.Type = ppSelectionText判断是否处于文本选中状态
• 用Len(selectedText.Text)获取选中文本长度，判断是否符合>1的条件
• 分支处理：满足条件则用选中文本执行空格替换，否则回退使用形状全部文本
• 保留原代码的空格替换为+的核心功能

内容的提问来源于stack exchange，提问作者Tinbendr