把字复制出来放写字板或者记事本里粘贴，再复制出来粘贴就能改了。
benleijian 发表于 2024-6-8 14:07
CTRL+F8的方式还不稳妥，重新保存为x4的时候会出现字体和字号丢失。
做了个更新文字的gms，这样稳妥点，以 ...
非常厉害，这个解决了大问题，但是有一个问题，X4里面有效，在2020里面就没反应了，是怎么回事？
黄国强 发表于 2024-6-10 11:55
非常厉害，这个解决了大问题，但是有一个问题，X4里面有效，在2020里面就没反应了，是怎么回事？ ...
要么是2020没有vba，要么是2020不是你安装的cdr里面的最高版本
benleijian 发表于 2024-6-8 14:07
CTRL+F8的方式还不稳妥，重新保存为x4的时候会出现字体和字号丢失。
做了个更新文字的gms，这样稳妥点，以 ...
刚才试了一下，2020里面也可以改，要选住之后，再选一个改过来的字体，才能更新过来，而且有一部分字体怎么也改不来，X4里面没这个问题，解散之后，全选一下就改过来了，请教一下，2020里面怎么改语法，能做到和X4里面一样的效果。
本帖最后由 benleijian 于 2024-6-10 12:24 编辑
黄国强 发表于 2024-6-10 12:11
刚才试了一下，2020里面也可以改，要选住之后，再选一个改过来的字体，才能更新过来，而且有一部分字体怎 ...
代码那个只是个选中范围内快速替换非组合文字。gms的逐字替换，也个不是递归版的，不会自动进组内替换文字。你说的应该是没有全部解组吧。公司电脑上倒是做了递归版进组逐字替换的了，但是速度实在是更慢，试了一下卡住好几秒，有点吓人，仅胜在原封不动。今天放假，给不了啊！
这东西只有高版本需要用吧，用的2024做的gms，理论上2020不会不能用。
benleijian 发表于 2024-6-10 12:18
代码那个只是个选中范围内快速替换非组合文字。gms的逐字替换，也个不是递归版的，不会自动进组内替换文字 ...
全部解散群组了，在X4里面就一下全改过来了，2020里面就改不过来，要选中一个正常文字后，才能更改，还有一些改不过来了，上班了给看一下呗，拜托了。
benleijian 发表于 2024-6-10 12:18
代码那个只是个选中范围内快速替换非组合文字。gms的逐字替换，也个不是递归版的，不会自动进组内替换文字 ...
我用AI人工智能调整了一下，可以在2020里面用了，可能是在网页上复制出的问题，但是还是有一点不太好用，要复制出来一份，才可以像X4里面的那样用，下面是我整理后的代码，还有哪些需要修改的，还望指正：
Private Sub CommandButton1_Click()
If ActiveShape Is Nothing Then
MsgBox "Pls select something!"
Exit Sub
End If
ActiveDocument.BeginCommandGroup
Application.Optimization = True
Dim s As Shape, sr As ShapeRange
Set sr = ActiveSelectionRange
n = sr.Shapes.Count
For Each s In sr.Shapes
If s.Type = cdrTextShape Then
s.Text.Story.Replace s.Text.Story.Text
End If
Next s
ActiveDocument.ActiveShape.RemoveFromSelection
sr.AddToSelection
ActiveDocument.EndCommandGroup
Application.Optimization = False
ActiveWindow.Refresh
Application.Refresh
End Sub
黄国强 发表于 2024-6-10 17:28
我用AI人工智能调整了一下，可以在2020里面用了，可能是在网页上复制出的问题，但是还是有一点不太好用， ...
代码执行内容没看出区别来，就是换成面板点击的了。
原先的代码不好用，直接给你最终版的逐字更新好了。选中改选中，不选中全改。
benleijian 发表于 2024-6-11 09:18
代码执行内容没看出区别来，就是换成面板点击的了。
原先的代码不好用，直接给你最终版的逐字更新好了。 ...
那可能代码没问题，只是断行有些区别，这个逐字的我下载试了，确实是慢，可能是我软件的问题，运行之后，文字没有反应。另外压缩包里面有个BAS文件，我没用，是不是和这个有关。
黄国强 发表于 2024-6-12 10:44
那可能代码没问题，只是断行有些区别，这个逐字的我下载试了，确实是慢，可能是我软件的问题，运行之后， ...
bas高版本是不需要的，bas用给gms不能直接用比如低版本之类自己的gms导入功能模块用的。
逐字我设置了msg提示的，如果安装正确应该是有提示的，开始和完成都有，变化是有的，但如果文字没问题，重写也是看不出来变化的。