officeba > 单独文章

教你做干扰码和用WORD快速清除干扰码

我们平时在一些论坛看到对自己有实际用途的帖子内容时，都想复制下来保存，但经常发现莫名其妙夹杂着一些乱七八糟的乱码呢，这些乱码我们称为“干扰码”。我们在好奇他们如何产生的同时也很烦这些影响美观的乱码。OFFICEBA就是为大家解除这个疑问，不仅教大家自己设计干扰码，也同时教大家如何用WORD2007快速删除干扰码！

先说说如何制作干扰码！

下边自定义了一个VBScript干扰码产生函数：程序代码<script language="VBScript">function getcode(icolor)Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLen     randomize     getcode = getcode & chr(int(127*rnd+1))nextgetcode = replace(getcode,"<","")getcode = replace(getcode,">","")getcode = "<span style=""font-size:0px;color:bgcolor"">" & getcode & "</span>" '只能置于段尾'getcode = "<span style=""display:none"">" & getcode & "</span>" '可置于任意位置end function</script>干扰码应放在什么地方呢？有两种做法。常见的是放在每个段落后面，将"<br/>"替换成"干扰码+<br/>"，这也是为什么要用style="font-size:0px;color:bgcolor"；另一种方法是随机的在文章中放置，此时必须用style="display:none"。 示例一： HTML代码<script language="vbscript">'*******************************************'产生干扰码函数'*******************************************function mzcode()Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLenrandomizemzcode = mzcode & chr(int(127*rnd+1))nextmzcode = replace(mzcode,"<","")mzcode = replace(mzcode,">","")mzcode = "<span style=""display:none"">" & mzcode & "</span>"end function'*******************************************'寻找<brbr/>个数'*******************************************function mzbr(temp)Dim ii = 1mzbr = 0do while i <> 0i = instr(i,temp,"<brbr/>",1)if i <> 0 then    mzbr = mzbr + 1   i = i + 1end ifloopend functionDim str,istr = "我是中国<brbr/>人aaaa我是中<brbr/>国人aaa我是中国人<brbr/>aa"For i = 1 to mzbr(str)str = replace(str,"<brbr/>",mzcode,1,1,1)NextDocument.write str</script>示例二： HTML代码<script language="vbscript">'*******************************************'产生干扰码函数'*******************************************function mzcode()Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLenrandomizemzcode = mzcode & chr(int(127*rnd+1))nextmzcode = replace(mzcode,"<","")mzcode = replace(mzcode,">","")mzcode = "<span style=""display:none"">" & mzcode & "</span>"end function'*******************************************'插入干扰码'*******************************************Const iMzcode = 20 '设置干扰字符串个数function mzcode2(content)Dim t_c,iLen,i,j,contentL,contentRt_c = contentFor i = 1 to iMzcodeiLen = Len(t_c)randomizej = int(iLen*rnd+1)if asc(mid(t_c,j,1))<0 then   contentL = left(t_c,j)   contentR = right(t_c,iLen - j)   t_c = contentL & "↓" & contentRend ifNextFor i = 1 to iMzcodet_c = replace(t_c,"↓",mzcode,1,1,1)Nextmzcode2 = t_cend functionDim strstr = "我是中国人aaaa我是中国人aaa我是中国人aa"document.write mzcode2(str)</script>后记：仔细看上边几个函数产生的干扰码，它们的位置是有规律的：为了不影响阅读就必须将干扰码置于font或span标签中。这样有规律很容易就能用正则表达式将其替换，干扰效果也随之打了个折扣。
俗话说道高一尺魔高一丈，你能产生干扰码，我就能删除干扰码！我们就利用WORD的查找替换功能来去之而后快。以WORD2007为例：
点击编辑菜单里的查换替换，或直接按CTRL+H，打开查找替换框！再点击“更多”按钮，将对话框展开，（其它版本可能有所区别，象WORD2003是“高级”这个按键）    接着，将光标定位到查找文本框中，然后单击“格式”按钮，在弹出的菜单中选择“字体”命令，打开“查找字体”对话框，字体颜色选择“白色”，，这时查找内容的格式项就会显示“字体颜色白色”字样，同样的操作可以用到替换内容框。利用这一功能　就可以快速删除干扰码！
大家可以看看WORD2007相关查找替换文章：

Word2007/2003中利用“查找和替换”批量设置文字格式418

解决Word2007/2003替换时的“反引号”问题225

为Word2007全文替换半角引号 295

巧用格式替换特殊任务一键搞定171

Word2007日期格式批量“替换” 225

在Word2007中键入内容替换所选文字 222

Word2007搜索代码之“查找内容”和“替换为”代码 214

Word2003中剪贴板快速替换上(下)标 230

EXCEL函数（查找替换类）的应用 832

Word2007文档处理中的“替换”技巧 226

在Word2007中如何替换为彩色文字486

用更高版本的模板部件替换现有模板部件37

用更高版本的模板部件替换现有模板部件22

在office 2007中查找和替换印度语、东南亚语或从右到左语言的字符概述101

Word技巧大集合之使用通配符进行模糊替换 340

Word中妙用查找替换功能来制作试卷98


声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2009-01-02 23:39:35,点击:65824

【OfficeBa论坛】：阅读本文时遇到了什么问题，可以到论坛进行交流！Excel专家邮件：342327115@qq.com（大家在Excel使用中遇到什么问题，可以咨询此邮箱）。

【声明】:以上文章或资料除注明为Office自创或编辑整理外，均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的，不存在任何商业考虑。如有任何异议，请与本站联系，本站确认后将立即撤下。谢谢您的支持与理解！

相关评论

我要评论

评论内容