[求助]全自动删除大量重复字符的 VBA代码

Richard905

请教老师们:

如何使一篇文章中(如:300页)的不同汉字, 数字或标点只出现一次, 其它重复的全部自动删除?

希望通过VBA实现!

谢谢!!!

守柔

QUOTE:

以下是引用Richard905在2008-1-24 9:07:05的发言：

请教老师们:

如何使一篇文章中(如:300页)的不同汉字, 数字或标点只出现一次, 其它重复的全部自动删除?

希望通过VBA实现!

谢谢!!!

请参考：

Sub DelRepeat()
'VBE/工具/引用/Microsoft Forms 2.0 Obejct Library
    Dim myDataObject As New MSForms.DataObject
    Dim strAlls As String, myString As String
    Dim i As Long, lngLenth As Long, oText As String
    ActiveDocument.Content.Cut
    myDataObject.GetFromClipboard
    strAlls = myDataObject.GetText(1)
    Set myDataObject = Nothing
    lngLenth = Len(strAlls)
    For i = 1 To lngLenth
        oText = VBA.Mid(strAlls, i, 1)
        If VBA.InStr(myString, oText) = 0 Then myString = myString & oText
    Next
    ActiveDocument.Content.Text = myString
End Sub

Richard905

非常感谢守柔老师!

当我运行时, 出现错误信息:

Compile error
User-define type not defined

(在Dim myDataObject As New MSForms.DataObject处)

请守柔老师再麻烦检查一下, 我用的是Ms Word 2002, 不知是否有关?

再次感谢!

守柔

QUOTE:

以下是引用Richard905在2008-1-24 10:54:13的发言：

非常感谢守柔老师!

当我运行时, 出现错误信息:

Compile error
User-define type not defined

(在Dim myDataObject As New MSForms.DataObject处)

请守柔老师再麻烦检查一下, 我用的是Ms Word 2002, 不知是否有关?

再次感谢!

'VBE/工具/引用/Microsoft Forms 2.0 Obejct Library

Richard905

谢谢守柔老师!!

tangqingfu

谢谢守版的分享！

sqhsqhli

直接在原文上删除是不是更快？

Sub Com()

Dim i As Long,s As String,arr

s=ActiveDocument.Range.Text

With CreateObject("scripting.dictionary")

For i=1 To Len(s)

If Not.Exists(Mid(s,i,1)) Then .Add Mid(s,i,1),""

Next

arr=.keys

End With

ActiveDocument.Range.Text=Join(arr,"")

End Sub

tangqingfu

谢谢sqhsqhli兄的分享，收藏学习！

StarLink2020

守柔 发表于 2008-1-24 11:24
QUOTE:以下是引用Richard905在2008-1-24 10:54:13的发言：非常感谢守柔老师!当我运行时, 出现错误信息:Comp ...

compile error: user-defined type not defined  困扰我好久的问题终于在此找到了答案，谢谢~