VBA Powerpoint - 文本框 - 将 WordWrap 转换为马车 Return

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

VBA Powerpoint - 文本框 - 将 WordWrap 转换为马车 Return

VBA Powerpoint - Textbox - Convert WordWrap to Carriage Return

powerpoint

vba