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-文本框-将自动换行转换为回车

1 个答案: