Question

VBA，用一文本框内的每个字符去检索 WORD中的字符，将在WORD中不存在的字符保存入另一个文本框

所有不存在的字符都保存入后一个文本框。

Answer 1

首先插入一个窗体，在窗体中插入2个textbox,分别名为textbox1,textbox2,再插入一个 CommandButton名称 CommandButton1，为了使用Dictionary，引用microsoft scripting runtime
在c:\windows\system32\scrrun.dll
将如下代码复制到代码窗口中，按一下F5就能用了
Private Sub CommandButton1_Click()
Dim zifu As String, zidic As New Scripting.Dictionary, danzi As Range
Me.TextBox2.Text = ""
For i = 1 To Me.TextBox1.TextLength
zifu = Mid(TextBox1.Text, i, 1)
If zidic.Exists(zifu) = False Then
zidic.Add zifu, zifu
End If
Next
For Each danzi In ThisDocument.Words
For i = 1 To Len(danzi)
zifu = Mid(danzi, i, 1)
If zidic.Exists(zifu) = False Then
Me.TextBox2.Text = Me.TextBox2.Text & zifu
End If
Next
Next
End Sub

追问

怎么说用户定义类型未定义 zidic As New Scripting.Dictionary,
下面是啥意思？
为了使用Dictionary，引用microsoft scripting runtime
在c:\windows\system32\scrrun.dll

追答

VBA默认没有引用microsoft scripting runtime，需要在工具菜单中的引用中应用microsoft scripting runtime才可以用Dictionary 类创建 zidic对象