Удалить разрыв строки в Powerpoint VBA

Question

Я видел this post, но я не мог изменить свой скрипт VBA для презентации PPT. Почти каждый слайд имеет текст в текстовом поле. Однако в конце некоторых текстовых полей есть несколько разрывов строк в конце (Enter hits), около 1-3 в некоторых местах. Я хотел бы иметь макрос, чтобы удалить эти незавершенные разрывы строк. Скажи мне, что я делаю неправильно здесь (2 скриптов):

Sub RemoveSpaces(osh As Shape) 

Dim oSl As Slide 
    Dim osh As Shape 


    With ActivePresentation 

For Each oSl In .Slides 
    For Each osh In oSl.Shapes 
     With osh 
      If .HasTextFrame Then 
       If .TextFrame.HasText Then 
        If Right$(osh.TextFrame.TextRange.Characters(osh.TextFrame.TextRange.Length, 2)) = vbCrLf Then 
        osh.TextFrame.TextRange.Text = Left$(osh.TextFrame.TextRange.Text, Len(osh.TextFrame.TextRange.Text) - 2) 
        End If 
       End If 
      End If 
     End With 
    Next 
Next 

    End With 
End Sub 

и

Sub RemoveSpaces() 

Dim oSl As Slide 
    Dim osh As Shape 


    With ActivePresentation 

For Each oSl In .Slides 
    For Each osh In oSl.Shapes 
     With osh 
      If .HasTextFrame Then 
       If .TextFrame.HasText Then 
        If osh.TextFrame.TextRange.Characters(osh.TextFrame.TextRange.Length - 2, 2).Text = vbCrLf Then 
        osh.TextFrame.TextRange.Characters(osh.TextFrame.TextRange.Length - 2, 2).Delete 
        End If 
       End If 
      End If 
     End With 
    Next 
Next 

    End With 
End Sub 

Answer 1

Когда я нажимаю войти в PowerPoint, он, очевидно, добавляет Vertical Tab, который является ASCII код 11. Try следующее:

Sub RemoveSpaces() 

Dim oSl As Slide 
    Dim osh As Shape 


    With ActivePresentation 

For Each oSl In .Slides 
    For Each osh In oSl.Shapes 
     With osh 
      If .HasTextFrame Then 
       If .TextFrame.HasText Then 
        Do While osh.TextFrame.TextRange.Characters(osh.TextFrame.TextRange.Length - 1, 1).Text = Chr(11) 
         osh.TextFrame.TextRange.Characters(osh.TextFrame.TextRange.Length - 1, 1).Delete 
        Loop 
       End If 
      End If 
     End With 
    Next 
Next 

    End With 
End Sub 

Answer 2

Powerpoint является немного странным таким образом; конец строки и абзаца могут различаться в зависимости от версии PPT, которую вы имеете, и от того, является ли форма заглавием заголовка или каким-либо другим типом формы.

У меня есть страница на PowerPoint FAQ я утверждаю, что объясняет более подробно:

Пункт окончаний и разрывы строк http://www.pptfaq.com/FAQ00992_Paragraph_endings_and_line_breaks.htm