不重复保留word文档中的字符

ttkxssry · 发表于 2018-4-14 20:45

本帖最后由 ttkxssry 于 2018-4-17 12:35 编辑

word文档中，有些字符是重复的，有些字符是不重复的。

目的：

word文档中，不重复的字符要保留下来，重复的字符只保留一个。

可以采取两种方式中任一种方式：
1、只在本word文档中处理。可以采取删除方式：
如果某字符在文档中重复出现N(>1)次，则删除N-1个该字符，只保留一个该字符，达到文档中没有重复字符的效果。
2、在新旧2个word文档之间处理：
把文档中的字符进行不重复提取，结果保存到另一个文档中。
“不重复提取字符”，这个意思是：见到字符就提取，但如果某字符已经提取过，就不要重复提取。
注意“不重复提取字符”和”提取不重复字符“有很大区别。
（”提取不重复字符“，这个意思是：我们提取的是不重复的字符，如果某字符重复出现在文档里，则不提取，一次都不提取）

举个例子，“兢兢业兢业”去重后变成“兢业”，我要的是这样的结果。

不论采取2种方式中的哪一种方式，总之概括成一句话：既要完全保留文档中的字符，又要不重复出现。
例如★出现了很多次，那么经过处理后，文档中只有一个★。

（备注：共有2千万的字符，所以用excel无法处理，只能用word处理。）

如果能用VBA解决就更好了。

实际中遇到的问题，恳请帮助，本人对您的援手感激不尽！

万分感谢！

duquancai · 发表于 2018-4-14 20:55

什么叫“字符”？理解清楚了吗？“字符”的含义概念模糊吗？

duquancai · 发表于 2018-4-14 20:58

请问：文档中的非打印字符？算不算字符？比如：回车符、空格、制表符等算不算字符？

413191246se · 发表于 2018-4-14 23:04

楼主，如果“兢兢业业”去重后变成“兢业”，这样不行吧？所以，应该上个附件，说清楚。

ttkxssry · 发表于 2018-4-15 10:24

本帖最后由 ttkxssry 于 2018-4-15 10:36 编辑

duquancai 发表于 2018-4-14 20:58
请问：文档中的非打印字符？算不算字符？比如：回车符、空格、制表符等算不算字符？

对不起，怪我没表述清楚。这里的字符，不包括：非打印字符，回车符、制表符等。

一般地，能打印出来的字符都算，例如：标点符号、序号、数字、货币符号、语言文字（例如拉丁字母、汉字、汉语注音字母、日文假名、希腊字母、俄文字母、英文等）............

区分大小写。

ttkxssry · 发表于 2018-4-15 10:56

本帖最后由 ttkxssry 于 2018-4-15 12:30 编辑

413191246se 发表于 2018-4-14 23:04
楼主，如果“兢兢业业”去重后变成“兢业”，这样不行吧？所以，应该上个附件，说清楚。

您好。

“兢兢业业”去重后变成“兢业”，我要的是这样的结果。

感谢您！

ttkxssry · 发表于 2018-4-15 10:59

duquancai 发表于 2018-4-14 20:58
请问：文档中的非打印字符？算不算字符？比如：回车符、空格、制表符等算不算字符？

您好！

不包括非打印字符，只包括可打印字符。多谢多谢！

duquancai · 发表于 2018-4-15 11:02

ttkxssry 发表于 2018-4-15 10:59
您好！

不包括非打印字符，只包括可打印字符。多谢多谢！

对不起，不想玩这个题目。

ttkxssry · 发表于 2018-4-15 11:09

duquancai 发表于 2018-4-15 11:02
对不起，不想玩这个题目。

那你屏蔽本贴吧，以免后面我回复本贴时，会不断打扰到你。

413191246se · 发表于 2018-4-15 14:06

楼主，如果文档较大，请耐心等待，不要动键盘、鼠标，请试用下面的宏：

Sub test删除重复字符()
Dim i&, j&, k&, m&, n$, t As Table
For Each t In ActiveDocument.Tables
t.Rows.ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=True
Next
With ActiveDocument.Content.Find
.Execute "^13", , , 0, , , , , , "", 2
.Execute "^11", , , 0, , , , , , "", 2
.Execute "^w", , , 0, , , , , , "", 2
End With
With Selection
.WholeStory
.ClearFormatting
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
Do
m = m + 1
With .Parent
.MoveRight 1, 1, 1
If .Text = vbCr Then Exit Do
.Font.Underline = wdUnderlineSingle
n = .Text
.MoveRight 1, 1
End With
.Execute n, , , 0, , , , , , "", 2
Loop
End With
.WholeStory
.ClearFormatting
.HomeKey Unit:=wdStory
Do
.MoveRight 1, 1
.TypeParagraph
Loop Until .Text = vbCr
.Delete 1, 1
.WholeStory
.Sort ExcludeHeader:=False, FieldNumber:="段落数", SortFieldType:= _
wdSortFieldSyllable, SortOrder:=wdSortOrderAscending, FieldNumber2:="", _
SortFieldType2:=wdSortFieldSyllable, SortOrder2:=wdSortOrderAscending, _
FieldNumber3:="", SortFieldType3:=wdSortFieldSyllable, SortOrder3:= _
wdSortOrderAscending, Separator:=wdSortSeparateByTabs, SortColumn:=False, _
CaseSensitive:=False, LanguageID:=wdSimplifiedChinese, SubFieldNumber:= _
"段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数"
.HomeKey Unit:=wdStory
End With
MsgBox "处理完毕！！！！！！！！！！！！", 0 + 48
End Sub

复制代码

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

[已解决] 不重复保留word文档中的字符

评分

评分