依赖 ppt vba

选中一个文本框，并行该动作

● 注意区分
软回车（Shift+Enter）：换行
硬回车（Enter）：分段

本动作只能拆分硬回车，虽然有尝试通过vba先将所有的软回车，替换为硬回车。但经过反复实验，PPT VBA并不支持这样的操作

▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰
Sub 回车替换实验()
'On Error Resume Next
Dim shp As Shape
Dim tr As TextRange
Dim replacedText As String

' 遍历所有选中形状
For Each shp In ActiveWindow.Selection.ShapeRange
If shp.HasTextFrame And shp.TextFrame.HasText Then
Set tr = shp.TextFrame.TextRange
            '如果一段文字中有多个Q，这里重复几段代码就重复执行几次，否则只替换第一个Q
            'tr.Replace "1", Chr(10)    '实测可以替换成软回车
            'tr.Replace "1", Chr(13)    '实测可以替换成硬回车
            'tr.Replace Chr(10), Chr(13)    '实测无效
            tr.Replace Chr(13), "1"        '实测可行，但替换后会在1后面自动再插入一个回车，导致两行不会合并
            
End If
Next

End Sub