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
要实现这个没问题，可以定制~ YG插件免费版可以实现你这个功能，我试过一次。你可以尝试下。 chinton 发表于 2024-12-4 09:51
单独的GMS没有，众多插件里最强大的是echo的拆分文字，可以不用选择文本，不分美术文字和段落文本，多页面 ...
能不能演示一下 我一直都是ctrl+k来的，感觉自己好原始 单独的GMS没有，众多插件里最强大的是echo的拆分文字，可以不用选择文本，不分美术文字和段落文本，多页面一键拆分，界面和ymxkDOC几乎一样，但echo更强大，毕竟收费的。 这个要源码定制的话人民币200可能都少了点。不要源码楼上的说了一堆，都比较好用。 本帖最后由 yiweimeigong 于 2024-12-4 10:32 编辑
楼上说的价格靠谱一点。
我朋友说定制这种要800RMB都不止。
如果没有人能解决，不妨去某宝问问。
如果有大神制作拿出来出售印币，
我肯定是会积极购买的，哪怕我其实不需要。:lol YG插件的（文本分行）可以实现 ，并不是字体拆分 yiweimeigong 发表于 2024-12-4 10:31
楼上说的价格靠谱一点。
我朋友说定制这种要800RMB都不止。
如果没有人能解决，不妨去某宝问问。
那个朋友 技术如何 是大神吗？，