weimeicn 发表于 2024-12-4 10:55
要实现这个没问题，可以定制~
是的 就是需要定制我先公开源码，有人说这个800印币
Sub chaifen()
'-------------------------------------------------------------------------------------------------------------
'打散文本
'-------------------------------------------------------------------------------------------------------------
Public Sub BreakApartTextIntoSingleLine(ShpRng As ShapeRange, CDRDoc As Document, Optional Delimiter$, Optional KeepDeli As Boolean = False, Optional LinesOnly As Boolean)
Dim TempShpRng As New ShapeRange
On Error GoTo ErrLine
CDRDoc.Unit = cdrMillimeter
If ShpRng.Count = 0 Then
Exit Sub
Else
Set ShpRng = ShpRng.Shapes.FindShapes(query:="@type='text:artistic' or @type='text:paragraph'")
If ShpRng.Count = 0 Then GoTo ErrLine
End If
Do While ShpRng.Count > 0
TempShpRng.Add ShpRng.Shapes(1)
ShpRng.RemoveRange TempShpRng
BreakApartText TempShpRng, CDRDoc, Delimiter, KeepDeli, LinesOnly, False
If 1 < TempShpRng.Count Then
ShpRng.AddRange TempShpRng
End If
TempShpRng.RemoveAll
Loop
ErrLine:
End Sub
柿子苹果 发表于 2024-12-4 12:35
是的 就是需要定制我先公开源码，有人说这个800印币
压缩包里是空的。源码思路不错，值得学习。只是少了个子程序没贴上。 拆字本身不是太难，难的是沟通需求，反复修改。
yiweimeigong 发表于 2024-12-4 10:31
楼上说的价格靠谱一点。
我朋友说定制这种要800RMB都不止。
如果没有人能解决，不妨去某宝问问。
800算贵也不算贵，看各人对自己时间的定价了。我有时帮人写点CDR VBA代码，收费300起
zhgx998 发表于 2024-12-4 14:50
800算贵也不算贵，看各人对自己时间的定价了。我有时帮人写点CDR VBA代码，收费300起 ...
300起， 现在估计很少了 。20年前 应该没问题电脑用奔腾 赛扬
柿子苹果 发表于 2024-12-4 12:29
那个朋友 技术如何 是大神吗？，
那算便宜了，这个钱不算贵，那就直接写出来吧，放出来，到时楼主，直接现金交易就行了。:lol
**** 本内容需购买 ****
sfp010 发表于 2024-12-4 22:02
**** 本内容需购买 ****
看一下符合要求吗
sfp010 发表于 2024-12-4 22:14
看一下符合要求吗
非常感谢你的工作，演示中没有 图文框内文字也就是图文框精确裁剪内的文字打散如图
sfp010 发表于 2024-12-4 22:14
看一下符合要求吗
非常感谢你的工作，演示中没有 图文框内文字也就是图文框精确裁剪内的文字 也需要打散如图