我在幻灯片中有几个文本框。他们每个人都有不同的字体大小。
文本框中的文本是多行的。但是他们的换行符是自动换行的,而不是手动回车。
我需要将这些自动换行的文本转换为正确的回车文本,以便我可以将其导出为 CSV 文本文件。
我有很多 Powerpoint 演示文件,每个文件中有数百张幻灯片。每张幻灯片都有几个不同字体大小的自动换行文本框。
我应该如何解决这个问题?
希望有人能指出我正确的方向。谢谢!
这里有一些东西可以让你开始:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句