200 印币或￥40求一键拆分所有美术字 自动检测多页面、容...0

柿子苹果

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

zhgx998

柿子苹果 发表于 2024-12-4 12:35
是的 就是需要定制  我先公开源码，有人说这个800印币  

压缩包里是空的。  源码思路不错，值得学习。只是少了个子程序没贴上。 拆字本身不是太难，难的是沟通需求，反复修改。

zhgx998

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
那个朋友 技术如何 是大神吗？，

那算便宜了，这个钱不算贵，那就直接写出来吧，放出来，到时楼主，直接现金交易就行了。

sfp010

[sell=100,2][/sell]

sfp010

sfp010 发表于 2024-12-4 22:02
**** 本内容需购买 ****

看一下符合要求吗

柿子苹果

sfp010 发表于 2024-12-4 22:14
看一下符合要求吗

非常感谢你的工作，演示中没有 图文框内文字  也就是图文框精确裁剪内的文字打散如图

柿子苹果

sfp010 发表于 2024-12-4 22:14
看一下符合要求吗

非常感谢你的工作，演示中没有 图文框内文字  也就是图文框精确裁剪内的文字 也需要打散如图