大家共同来讨论下如何干掉网文乱码问题

zhanglei1371

首先声明：乱码，源自于无格式粘贴的文本，所以，常规的查找白色字体，1磅大小和隐藏格式是无效的。
论坛中也有讨论的案例，但都未从根本上解决问题。
现存问题：
通过查找替换，可以干掉常规的长串乱码，但也会导致正常英文字体被清除。
本帖目的在于收集尽可能多的筛选思路，或者VBA，最终整合出一个删除乱码完美化的方案！

如下例：
讨论如何删除乱码.rar (5.48 KB, 下载次数: 9)

2013-5-17 21:00 上传

点击文件名下载附件

E．主要功能是运输O2和CO2:@9 r$答案：C)@+A4 s（2）白细胞生理：白细胞可分为中性粒细胞、嗜酸性粒细胞、嗜碱性粒细胞、单核细胞和淋巴细胞。正常成年人血液中白细胞数是4．0×109～10．0×109/L，中性粒细胞和单核细胞具有吞噬细菌、清除异物、衰老的红细胞和抗原-抗体复合物。嗜酸性粒细胞限制嗜碱性粒细胞和肥大细胞在速发型变态反应中的作用，参与对蠕虫的免疫反应。嗜碱性粒细胞释放的肝素具有抗凝作用，有利于保持血管的通畅，使吞噬细胞能够到达抗原入侵部位而将其破坏；淋巴细胞参与免疫应答反应，T细胞与细胞免疫有关，B细胞与体液免疫有关。2 P$u!例题：中性粒细胞的主要功能是^5 v6|,`*N*q

D．吞噬外来微生物

（3）血小板生理：正常成年人血小板数量为100×109～300×109/L。血小板主要发挥生理止血作用。它的止血作用取决于血小板的生理特性，包括：①粘附；②释放；③聚集；④收缩；⑤吸附。

例题：红细胞的叙述错误的是,x#i'q%t$k4 G

A．我国正常成年男性数量（4．5～5．5）×1012

2．tB．我国正常成年女性数量（3．5～5．0）×to12／L(U-W-A-L7 L*[

C．维持双凹圆碟形不需消耗能量

D．含多种缓冲对，具有较强的缓冲能力

例题：血小板的叙述，正确的是1 g!r6 d(G/y%e-v

A．正常成人血液中数量为（l 00～300）×l09／L(G/y%e-v

2．生理性止血1 Z+h,G*q%k7|7 U

（1）生理性止血的基本过程：主要包括血管收缩、血小板血栓形成和血液凝固三个过程。在损伤处释放5-羟色胺、TXA2等缩血管物质，引起血管收缩，以达到止血。1 t.f-q,o3 s-n6 S(~+d/G5 G X

（2）血液凝固的基本步骤：它是由凝血因子按一定顺序相继激活而生成的凝血酶，最终使可溶性纤维蛋白原转变成不溶性的纤维蛋白的过程，分为凝血酶原酶复活物的形成、凝血酶原的激活和纤维蛋白的生成三个基本步骤。4 Y*|;_(q0 Y0 x"~1 D#_$\

3．生理性抗凝物质：它可分为丝氨酸蛋白酶抑制物、蛋白质C系统和组织因子途径抑制物三类。丝氨酸蛋白酶抑制物中最重要的是抗凝血酶Ⅲ和肝素。*r7 s8 b（三）血液循环

1．心脏的生物电活动(f(b!o-l9_w!|'V5 A7 f)@6 r!j6 S5 J

2．心脏的泵血功能:S!e2 H)e:Q/q

通俗易懂：基金基础问题答疑汇总（3）

如果想变更分红方式应如何办理？

.]9[4N6v6?1[1X6`bbs.chinafund.cn    投资者设置了分红方式后，可在分红登记日3天（包括第3日）前的任何一天申请变更分红方式。但一只基金只能指定一种分红方式，以最后一次指定的方式为准。)|&g.l"f/p$B

     机构投资者选择或修改分红方式时，应出具公函并加盖预留印鉴后交柜员办理；个人投资者应提供的资料与认购相同。

中国基金论坛/E/]5N0M.t6H+{'G

什么是基金复制？

0V:W6^6C5p9W(F 基金复制是以一只老基金的运作方式新成立一只基金。老基金运作得到投资者认可，但其单位净值已很高，基金规模也不小，持续申购可能摊薄老投资者收益，

     1.基金管理公司、代销机构等营业场所和办公场所提供的备查文件；

;\1B3t,I!z7T#^6? i    2.基金管理公司的宣传资料；

-\9]"Z!E"E5Q"^'F;k    3.基金管理公司的客户服务电话；bbs.chinafund.cn-d8I/t*G4l"g

     4.基金管理公司的网站；

+_7l*\+c5U-q$j8X%w/O"z    5.中国证监会指定的信息披露网站，例如：上海证券交易所网站www.sse.com.cn，深圳证券交易所网站www.sse.org.cn及 www.cninfo.com.cn 网站；4X$A X1`9G+s4v

zhanglei1371

无人感兴趣？{:soso_e114:}
看来我先提供一个方案吧：在论坛里找个个以前小花鹿做的半成品，稍作修改如下：
Sub 清除网文乱码()
    If Documents.Count = 0 Then
        MsgBox "无活动文档！", Title:="提示："
        Exit Sub
    End If
    Dim msgResult1 As VbMsgBoxResult
    Dim s, str, i&, n&, n1&, j&
    str = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ .,;:?-0123456789""_()"
    msgResult1 = MsgBox("此命令不能保证100%的正确，可能漏删，也可能误删，请慎用！" & vbCrLf & vbCrLf & _
                   "　　　　　                         是否继续？", vbYesNo, Title:="清除网文乱码：")
    If msgResult1 = vbNo Then Exit Sub
    Selection.HomeKey Unit:=wdStory
    Application.ScreenUpdating = False
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[^1-^12^14-^127^s]{3,}"
        .Replacement.Text = "^p"
        .MatchWildcards = True
Do While .Execute
            s = Selection.Text
        For i = 1 To Len(s)
                If InStr(str, Mid(s, i, 1)) Then
                    n = n + 1
                End If
                If IsNumeric(Mid(s, i, 1)) Then
                    n1 = n1 + 1
                End If
            Next i
            If n1 < Len(s) * 0.5 Then
                If n < Len(s) Then
        Selection.Delete
                End If
            End If
        n = 0: n1 = 0
     Loop
End With
Application.ScreenUpdating = True
End Sub
程序思路为先查找到由数字、字母和符号组成的字串，然后统计长度，如果有非法字符则会和统计的长度不同。将其删除。
已经可以解决大部分的乱码了。但是对于下面的情况却会误删：
护理和兔子（3．5～5．0）×to12／L(U-W-A-L7 L*[

psystyle

标记一下，，，，

kqbt

网文乱码直接粘贴到Word里面，一般其格式都是“隐藏”的，可以直接用“替换”来批量删除。

psystyle

kqbt 发表于 2013-5-21 19:01
网文乱码直接粘贴到Word里面，一般其格式都是“隐藏”的，可以直接用“替换”来批量删除。

就这个案例，指点一二啊

xylx16

批量替换也不是很好使。。有些字符就给替换掉了