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

何先生

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

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

jiangyu

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

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

珊瑚微微

卧槽卧槽卧槽卧槽卧槽