Supprimer les espaces doubles sans enlever les niveaux de balles

Question

Chaque fois que je lance le code dans le powerpoint il enlever toutes les balles des TextRanges, les cadres de texte, mais je veux garder toutes les balles comme il est si quelqu'un sait s'il vous plaît conseiller

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

Retirez la garniture et essayez.

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