删除双空格而不删除子弹级别

Question

每当我在powerpoint中运行代码时，它会删除textranges，textframes中的所有项目符号，但我想保留所有项目符号，如果有人知道的话请提供建议

Sub removeSpaces()
Dim shpText As String

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            shpText = shp.TextFrame.TextRange.Text 'Get the shape's text
            Do While InStr(shpText, "  ") > 0
                shpText = Trim(Replace(shpText, "  ", " "))
            Loop
        shp.TextFrame.TextRange.Text = shpText 'Put the new text in the shape

        Else
            shpText = vbNullString
        End If
    Next shp
Next sld
End Sub

Answer 1

删除修剪并尝试。

Do While InStr(shpText, "  ") > 0
   shpText = Replace(shpText, "  ", " ")
Loop