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

柿子苹果

200 印币或￥40 求一键拆分所有美术字 自动检测多页面、容量内、段落，然后拆分成单个美术字的gms

柿子苹果

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

weimeicn

要实现这个没问题，可以定制~

小辉数码

YG插件免费版可以实现你这个功能，我试过一次。你可以尝试下。

柿子苹果

chinton 发表于 2024-12-4 09:51
单独的GMS没有，众多插件里最强大的是echo的拆分文字，可以不用选择文本，不分美术文字和段落文本，多页面 ...

能不能演示一下

aikoo

我一直都是ctrl+k来的，感觉自己好原始

chinton

单独的GMS没有，众多插件里最强大的是echo的拆分文字，可以不用选择文本，不分美术文字和段落文本，多页面一键拆分，界面和ymxkDOC几乎一样，但echo更强大，毕竟收费的。

zhgx998

这个要源码定制的话人民币200可能都少了点。不要源码楼上的说了一堆，都比较好用。

yiweimeigong

楼上说的价格靠谱一点。
我朋友说定制这种要800RMB都不止。
如果没有人能解决，不妨去某宝问问。

如果有大神制作拿出来出售印币，
我肯定是会积极购买的，哪怕我其实不需要。

Long~~~

YG插件的（文本分行）可以实现 ，并不是字体拆分

柿子苹果

yiweimeigong 发表于 2024-12-4 10:31
楼上说的价格靠谱一点。
我朋友说定制这种要800RMB都不止。
如果没有人能解决，不妨去某宝问问。

那个朋友 技术如何 是大神吗？，