版块 › CorelDRAW专区 › 求大神写个手机号344空格GMS插件

何先生 发表于 2023-8-20 20:02:49

求大神写个手机号344空格GMS插件

15127519445 变成 151 2751 9445这样
就像这样，因为经常排名片，
有时候客户发文字我复制在CDR中，有时候客户发错号码多一位少一位，344空格就很容易发现问题，

请大神帮写一个GMS插件，谢谢

jiangyu 发表于 2023-8-20 22:29:04

Sub 文本344()

ActiveDocument.Unit = cdrMillimeter
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange

Dim a As Shape
Dim x, x1, x2 As String

For Each a In OrigSelection
If a.Type = cdrTextShape Then
x = Mid(a.Text.Story.Text, 1, 3)
x1 = Mid(a.Text.Story.Text, 4, 4)
x2 = Mid(a.Text.Story.Text, 8, 4)
a.Text.Story.Text = x & " " & x1 & " " & x2
End If
Next

End Sub

复制到新建插件的模块里面就可以用了。

珊瑚微微 发表于 2023-8-20 20:55:48

卧槽卧槽卧槽卧槽卧槽;P:lol

查看完整版本: 求大神写个手机号344空格GMS插件