VBA Powerpoint - Textbox - конвертировать WordWrap в возврат каретки

Question

У меня есть несколько текстовых полей на слайде.Каждый из них имеет разные размеры шрифта.

Текст в текстовом поле многострочный.Но их разрывы строк переносятся по словам, а не по возврату каретки вручную.

Мне нужно преобразовать этот перенос по словам в правильный текст, возвращаемый кареткой, чтобы я мог экспортировать его в текстовый файл CSV.

У меня есть много файлов презентаций Powerpoint с сотнями слайдов в каждом файле.И каждый слайд несколько текстовых полей с разными размерами шрифта.

Как мне решить эту проблему?

Надеюсь, кто-нибудь может указать мне правильное направление.Спасибо!

Answer 1

Вот кое-что, с чего можно начать:

Sub TestIt()
    Dim osh As Shape
    Set osh = ActiveWindow.Selection.ShapeRange(1)
    Call WordwrapToLineEnd(osh)
End Sub

Function WordwrapToLineEnd(osh As Shape)

    Dim x As Long

    With osh.TextFrame.TextRange
        For x = 1 To .Lines.Count
            .Lines(x).Text = .Lines(x).Text & vbCrLf
        Next
    End With

End Function