【求助】excel能否在文章中只提取不同的单词

小女夭

不就26个字母吗？

lizhliang

实例14：删除重复的词组

替换前效果		替换后效果
划过 许下 一颗 划过 许下 一群 许下		划过 许下 一颗 一群
操作方法： 选中要替换的内容,先进行排序（“表格/排序”) 选择要替换的内容，按下Ctrl+H组合键，打开“替换”对话框，勾选“使用通配符”
查找内容：		替换为：
(*^13)(\1){1,} 或 (*^13){2,}		\1 或 \1
相关解释及说明： 查找1个或者1个以上、以段落标记为结尾的任意字符串，将其替换为1个。
难度级别	★★★☆☆
使用级别	★★★☆☆

青城山苦丁茶

提供的文章中：文章中出现的单词有480个，他们是：Course Design This……

将以下代码复制到word的VBE中并运行之，可得到当前word文章中的不重复单词个数，并将这些单词在文章最后全部列出来：

Sub test()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
Dim arr1(), l1&, s, s1$
For Each s In ActiveDocument.Words
    s1 = s.Text
    If Left(s1, 1) Like "[a-zA-Z]" Then
      dic(Trim(s1)) = ""
    End If
Next
arr1 = dic.Keys
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="文章中出现的单词有" & dic.Count & "个，他们是："
For l1 = 0 To UBound(arr1)
    Selection.TypeText Text:=arr1(l1) & " "
Next
End Sub

lizhliang

QUOTE:

以下是引用青城山苦丁茶在2010-4-17 21:23:00的发言：

提供的文章中：文章中出现的单词有480个，他们是：Course Design This……

将以下代码复制到word的VBE中并运行之，可得到当前word文章中的不重复单词个数，并将这些单词在文章最后全部列出来：

Sub test()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
Dim arr1(), l1&, s, s1$
For Each s In ActiveDocument.Words
    s1 = s.Text
    If Left(s1, 1) Like "[a-zA-Z]" Then
      dic(Trim(s1)) = ""
    End If
Next
arr1 = dic.Keys
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="文章中出现的单词有" & dic.Count & "个，他们是："
For l1 = 0 To UBound(arr1)
    Selection.TypeText Text:=arr1(l1) & " "
Next
End Sub

vbe怎么用呢？

青城山苦丁茶

7SYjmP4c.zip (15.84 KB, 下载次数: 16)

2010-4-17 22:43 上传

点击文件名下载附件
【求助】excel能否在文章中只提取不同的单词
启用宏，点文章最前面的按钮，那么新增到文章的最后一段就是结果了

[此贴子已经被作者于2010-4-17 22:44:58编辑过]