请问各位老师

wytsxh

       请问各位老师：一篇word文档，里面有很多相同的文字，散乱分布于文档各处。请问，有没有办法让文档中所有相同的文字排列在一起(排列的顺序无所谓)？如果不行，那有没有办法让文档中所有的文字按照偏旁部首排列(排列的顺序无所谓)？
     不知能否实行，先多谢了！

墨策

不清楚你的描述和想要的效果，最好发个模拟文档

wytsxh

图一：原始文档。
图二：所有相同的文字全部排列在了一起，排列的顺序随意，无要求。
图三：所有偏旁部首相同的文字排列在了一起，排列的顺序随意，无要求。

batmanbbs

图二很简单，split（或者replace）+string就可以
图三需要偏旁表，字库编码并不完全是按偏旁排列的，需要自己生成一个字表

wytsxh

batmanbbs 发表于 2025-3-15 11:58
图二很简单，split（或者replace）+string就可以
图三需要偏旁表，字库编码并不完全是按偏旁排列的，需要 ...

       多谢老师解答！
       但作为电脑小白，您说的“split（或者replace）+string”是什么意思？完全不明白啊！

Enocheasty

要求很奇怪，关于你的第二个要求。用AI给你生成一段程序。可以用的，不过你要稍微改改，比如赋值的位置，可以改成Application.Selection.Range.Text, 读取，排序后，再赋值回去。
第三个要求有点麻烦，目前没有按部首排序的办法。

1. Function SortStringCharacters(inputString As String) As String
   
2.     Dim charArray() As String
   
3.     Dim i As Long, j As Long
   
4.     Dim temp As String
   
5.     Dim length As Long
   
6.    
   
7.     ' 获取字符串的长度
   
8.     length = Len(inputString)
   
9.    
   
10.     ' 调整数组的大小以容纳所有字符
    
11.     ReDim charArray(1 To length)
    
12.    
    
13.     ' 将字符串拆分为单个字符并存储到数组中
    
14.     For i = 1 To length
    
15.         charArray(i) = Mid(inputString, i, 1)
    
16.     Next i
    
17.    
    
18.     ' 使用冒泡排序算法对数组进行排序
    
19.     For i = 1 To length - 1
    
20.         For j = i + 1 To length
    
21.             If charArray(i) > charArray(j) Then
    
22.                 ' 交换元素位置
    
23.                 temp = charArray(i)
    
24.                 charArray(i) = charArray(j)
    
25.                 charArray(j) = temp
    
26.             End If
    
27.         Next j
    
28.     Next i
    
29.    
    
30.     ' 将排序后的数组元素合并为一个字符串
    
31.     SortStringCharacters = Join(charArray, "")
    
32. End Function
    
33. 
    
34. Sub TestSortStringCharacters()
    
35.     Dim inputStr As String
    
36.     Dim sortedStr As String
    
37.    
    
38.     ' 输入要排序的字符串
    
39.     inputStr = "hello"
    
40.    
    
41.     ' 调用排序函数
    
42.     sortedStr = SortStringCharacters(inputStr)
    
43.    
    
44.     ' 输出排序后的字符串
    
45.     MsgBox "排序前的字符串: " & inputStr & vbCrLf & "排序后的字符串: " & sortedStr
    
46. End Sub

复制代码

蜀中草莽

batmanbbs 发表于 2025-3-15 11:58
图二很简单，split（或者replace）+string就可以
图三需要偏旁表，字库编码并不完全是按偏旁排列的，需要 ...

我倒是觉得 图二 可以直接文本转表格 排序 然后表格转文本

wytsxh

Enocheasty 发表于 2025-3-15 19:49
要求很奇怪，关于你的第二个要求。用AI给你生成一段程序。可以用的，不过你要稍微改改，比如赋值的位置，可 ...

    多谢老师解答！
    确实是两个很奇怪的诉求。但手上有一篇文档，里面有大量的重复文字，实在没办法。
    另：第三个要求是建立在第二个要求无法达成的基础上，如果第二个要求能够实现，就不用看第三个要求了。其实两个要求最后都是要达到一个目的──找出相同的文字。
    老师给出的方法，对于我来说可能有点难，自己再慢慢摸索吧！

wytsxh

蜀中草莽 发表于 2025-3-16 07:54
我倒是觉得 图二 可以直接文本转表格 排序 然后表格转文本

    多谢老师解答！
    老师给出的方法，对于我来说可能有点难，自己在慢慢摸索吧！

batmanbbs

wytsxh 发表于 2025-3-15 14:03
多谢老师解答！
       但作为电脑小白，您说的“split（或者replace）+string”是什么意思？完 ...

指的是vba代码中函数