把杂乱无章的符号及带圈序号按顺序排列

相见是缘8 · 发表于 2023-5-15 09:01

本帖最后由相见是缘8 于 2023-5-15 09:03 编辑

batmanbbs 发表于 2023-5-15 08:47
没有听明白，你是不是想保留这个"䪼"字？

batmanbbs 老师，好！

batmanbbs · 发表于 2023-5-15 09:53

其实我在9楼就已经说了，有两处是直接控制识别乱码的，自己可以酌情修改。
根据你提供的新附件，我已修改完代码，不过代码审核需要时间，有空刷新一下吧，如果还有问题再跟帖。

batmanbbs · 发表于 2023-5-15 09:54

本帖最后由 batmanbbs 于 2023-5-15 11:45 编辑

查了一下，这个字是CJK的扩充字符，所以没有在汉字集里面，我把这些扩充字符也放到识别汉字中了，代码在楼下

batmanbbs · 发表于 2023-5-15 10:05

Sub 去乱码编序号()
Dim myPG As Paragraph
Dim oType%, No%, count%, i%, rStart&, rEnd&, RegEx$, rng$
Dim oRegEx As Object, myMatches As Object
Set oRegEx = CreateObject("VBSCRIPT.REGEXP")
With oRegEx
.IgnoreCase = False
.MultiLine = False
.Global = True
End With
RegEx = "[\uF022-\uF084]+|[^" & ChrW(13312) & "-﨩，、；。“”]+"
oType = 0: No = 0
For Each myPG In ActiveDocument.Paragraphs
With myPG.Range
rng = Left(.Text, Len(.Text) - 1)
If Trim(Len(rng)) <> 0 Then
If Trim(rng) = "【原文】" Then
oType = 1: No = 0
ElseIf Trim(rng) = "【校注】" Then
oType = 2: No = 0
ElseIf Trim(rng) Like "【*】" Then
oType = 0: No = 0
ElseIf oType = 1 Then
If rng Like "*[一-﨩]*" Then
With oRegEx
.Pattern = RegEx
Set myMatches = .Execute(rng)
End With
count = myMatches.count
If count > 0 Then
No = No + count
For i = count - 1 To 0 Step -1
rStart = .Start + myMatches(i).FirstIndex
rEnd = rStart + myMatches(i).Length
With ActiveDocument.Range(rStart, rEnd)
.Text = Chr(33 + (No - count + i + 1))
.Font.ColorIndex = wdRed
.Font.Bold = False
.Font.Name = "Numbers & Pinyin"
End With
Next i
End If
End If
ElseIf oType = 2 Then
If Len(rng) >= 3 And rng Like "*[" & ChrW(13312) & "-﨩]*" Then
For i = 1 To 3
If .Characters(1) Like "[" & ChrW(13312) & "-" & ChrW(-4063) & ChrW(-3963) & "-﨩]" Then Exit For
.Characters(1).Delete
Next i
No = No + 1
.InsertBefore Chr(33 + No) & "、"
With .Characters(1).Font
.ColorIndex = wdRed
.Bold = False
.Name = "Numbers & Pinyin"
End With
End If
End If
End If
End With
Next myPG
Set myPG = Nothing
Set oRegEx = Nothing
Set myMatches = Nothing
End Sub

复制代码

相见是缘8 · 发表于 2023-5-15 14:39

batmanbbs 发表于 2023-5-15 10:05

batmanbbs 老师，好！
辛苦了！代码在 “附件” 上，运行OK，感谢老师！
自己酌情修改，唉！我还没有这个功力！
老师，这个CJK的扩充字符，我一点也不懂，你有这个 “CJK的扩充字符” 的全部编码吗？因文档里可能还有好多类似的字。以后我也经常会用到。

batmanbbs · 发表于 2023-5-15 14:49

本帖最后由 batmanbbs 于 2023-5-15 15:05 编辑

是的，我们平时都是从4E00开始作为汉字的（如图1），你这个字是在扩充字里面，所以这次我将汉字字符集扩展到从3400开始（如图2），这样就能识别更多的不常见的扩充汉字了。
图一：

图二：

PS：编码问题和编程问题不是一回事，并不需要深厚的编程知识，和你上次想打"々"差不多，能查找到字符编码即可修改。

相见是缘8 · 发表于 2023-5-15 17:09

batmanbbs 发表于 2023-5-15 14:49
是的，我们平时都是从4E00开始作为汉字的（如图1），你这个字是在扩充字里面，所以这次我将汉字字符集扩展 ...

哦！感谢老师不厌其烦的指教！谢谢！

相见是缘8 · 发表于 2023-5-16 09:41

batmanbbs 发表于 2023-5-15 14:49
是的，我们平时都是从4E00开始作为汉字的（如图1），你这个字是在扩充字里面，所以这次我将汉字字符集扩展 ...

batmanbbs 老师，好！
我看你的截图中，有 CJK统一汉字扩充A，我看了一下，我的没有（如图1），是不是我电脑中的 “字库” 的版本大低，能否劳你复制上转一个你电脑中的 “字体”（如图2）给我，谢谢！
另外，老师，你怎么对有拉选框的截图，不会让它宿回，还截这么清晰，能教教我吗？

batmanbbs · 发表于 2023-5-16 09:53

本帖最后由 batmanbbs 于 2023-5-16 10:03 编辑

宋体是最全的，应该有，点击向下箭头继续翻页

大概的位置

PS：你在字符代码的位置直接输入3400就能直接找到

batmanbbs · 发表于 2023-5-16 09:54

QQ的截图呀，非常方便

		自动登录	找回密码
密码			免费注册

[求助] 把杂乱无章的符号及带圈序号按顺序排列