我们人民共和国的航船正在破浪前进……[]
多校划片后学区房到底买不买?家长陷入纠结中。[]
朋友圈里晒滑雪的人突然多起来,新的圈子正在形成。[]
& &您当前的位置 :
江苏工商:网购“五星好评返现”骗了后来的消费者
【字号:&&】【】
昨天,除了旅游服务平台集中促销信息在线监测的结果,江苏省工商局还公布了春节期间网络商品交易平台出现的网购问题。工商部门此次以国内8家网络交易平台为重点监测对象,抽取了280个样本的商品信息。监测商品类别为服装鞋帽、小家电、母婴用品和食品4类。通讯员宫商轩扬子晚报全媒体记者徐晓风
奶粉不易腐却也不能无理由退货
现在,网上海购奶粉等母婴用品成了不少年轻父母的选择,可是你想过吗,为什么很多海外代购的奶粉食品等不能“7天无理由退货呢”?
省工商局网络交易监管处相关负责人介绍说,《消费者权益保护法》和《网络交易管理办法》均明确规定:“网络商品经营者销售商品,消费者有权自收到商品之日起七日内退货,且无需说明理由,但有四种商品除外:消费者定做的,鲜活易腐的,在线下载或者消费者拆封的音像制品、计算机软件等数字化商品,以及交付的报纸、期刊。”
解析:相关部门在此次监测中发现,部分平台销售的母婴用品、食品类商品大部分不支持“7天无理由退货”,自行扩大了不支持“7天无理由退货”的商品范围,特别是一些海外代购的母婴用品,如进口孕妇奶粉、婴儿奶粉等商家表示,因购货周期长、物流时间久等原因无法实行“7天无理由退货”政策,导致这一规定遭到变相改动。
另外,个别平台的服装类商品也不支持“7天无理由退货”,仅仅标明“因尺码、颜色问题,可以换货”。部分商家还自行增加商品限退换条件,如:“无质量问题,不退不换”、“未检查签收不退”、 “退货运费限退8元”等等。
“五星好评返现”骗了后来的消费者
都说买的没有卖的精,尤其是网购,不能看到实体货品,卖家是不是吹牛就很难分辨了。这次在线监测也发现,部分商家对商品的描述带有明显的夸大成分,如某儿童抱毯宣传“天然彩棉可啃咬,吸湿排汗”,实际采用普通棉花,难吸湿难排汗。虚假评价现象也很让人头疼。有些商品质量存在瑕疵,但商家以“五星好评返现”等方式诱使买家将问题商品好评,或以“改中差评为好评返现”等吸睛措施,引诱买家将已经中差评的商品重新改评为好评,甚至要求买家在评价中继续帮助商家夸大商品质量和使用感受,造成对潜在买家的心理误导。
提醒:针对此次监测中发现的共性和突出问题,工商部门提醒消费者购物时要做到“一选二查三比四注意”:即尽量选择专业性强、信誉度高的知名网络交易平台购物;仔细查看购物网站的商家和商品信誉评级,并浏览买家对该商家和商品的评价,同时,要注意合同中有无霸王条款;看中某商品后要多比较、多了解。最重要的是要注意看清商品详细信息,保存聊天记录作为可能投诉的有效证据。同时还需索要票据、保存好快递单,尽量选择权威性的第三方支付平台或者货到付款的方式付费。
十类网络问题容易“坑”了消费者
1未严格执行“7天无理由退货”类商品信息
2页面标示的商品信息或服务项目内容与实际不相符
3增加限制退货条件商品信息
4在网店或自营商品页面未以显著方式公示
5促销的期限、方式、规则等相关信息或者公示的信息不全宣传中含有绝对化用语类商品信息
6含有虚标价格、虚构优惠等涉嫌虚假宣传行为的商品信息
7客服人员服务态度较差
8含有霸王条款的商品信息
9宣传中使用驰名、著名商标类商品信息
10附赠的商品明确标示不提供“三包”服务类商品信息
原标题:江苏工商:网购“五星好评返现”骗了后来的消费者
&&责任编辑:李D、崔欣&&
去世时的蒋介石仍然是我们最熟悉的蒋介...
因为张柏芝而备受关注的张柏芝妈妈,本...
你可能还想看
&|&&|&&|&&|&&|&
中国江苏网(江苏中江网传媒股份有限公司) 版权所有&&
&&视听节目许可证1008318号&&
移动网信息服务业务经营许可证苏B2-&&因特网信息服务业务经营许可证苏B2- ,谢谢!
三郎兄,试试这个:
谢谢。 如果能支持所有的正则表达式就好了。ultraedit支持一部分。 -- 另外,请问大家,ms word是否支持一些正则表达式?我没有找到。
楼上的朋友都发出了 皇甫兄,hotmail应该没问题了,一直很稳定的,我对它有信心:)
作者:rickcafe 回复日期: 4:17:21
谢谢。 如果能支持所有的正则表达式就好了。ultraedit支持一部分。 -- 另外,请问大家,ms word是否支持一些正则表达式?我没有找到。 ==================== 其实查找中的一些高级选项,例如使用通配符等等,就是一种简化的,针对非专业人士的正则表达式,因为理解和编写正则表达式是需要一些专业基础的。如果能把正则表达式写的随心所欲,那么迅速理解一到两门编程语言应该不是难事。 如果是专业人士,由于微软从发布.net framework开始,终于有了些“计算机科学”的味道而不仅仅是黑客的热情,已经仿效Java SDK引入Regex包,全面支持正则表达式,所以对于全文本匹配处理,已经非常简易,如果你再在正则表达式上引入一些解析(parse)功能,形成句法树,更是可以构造一个简单的定制编译工具。 如果要和ms word集成,那么对于专业人士而言也许非常简单,使用宏调用正则表达式处理接口即可。
者:春风3郎 回复日期: 8:56:05
楼上的朋友已发 请后面跟贴的朋友尽量不要给我sina和yahoo的邮箱,这两家看来和我有仇,屡发屡退,害得我成了失信小人 三郎兄弟,你的软件我早早收到了。最近新浪的电子信箱打开很慢,似乎出了问题。好在我的是163的。 你的小软件很有用。我刚好编一本财政知识必读,内容都是扫描的其他资料上的,然后编辑,用这个东西很有效果。 还有个小问题,请教如何解决。在网页上下载并另存为TXT格式的文本文件后,很多时候每节开头都会空很长很长。一段一段的编辑成规范的抬头空两格格式,要很长时间。看如何解决这个问题。谢谢
yclrguo兄好,你这个问题跟上面一位朋友遇到的是一样的,其实外面有一些软件已有规范行首这个功能,譬如TXTPRO,如果你需要我可以马上发给你.请留下地址 想删除散见于文中的某字或字串(删空格也一样),可用一般编辑软件中的&替换&功能,在&查找内容&项中填入要删除的内容,在&替换为&项中什么也不要填,直接按&全部替换&,文中所有与&查找内容&中所填内容相同的字或字串都会被删掉,而且不留空格. 其实只要善于运用一些变通的方法,绝大多数编辑操作都能完成.
会了,谢谢!
三郎兄,收到了,多谢!
谢谢楼主,zhewei_
谢谢!
源代码开放运动 给楼上质疑word功能的朋友四个宏: Sub Macro1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^p&
.Replacement.Text = &xzy&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub Macro2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(xzy)@&
.Replacement.Text = &xzy&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub Macro3()
Dim colFoundItems As New Collection
Dim Item As Word.Range
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &?(xzy)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
Do While .Found = True
‘Selection.Range.Text = Left(Selection.Range.Text, 1)
If (Left(Selection.Range, 1) && &!& And Left(Selection.Range, 1) && &。&) Then
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With End Sub Sub Macro4()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &xzy&
.Replacement.Text = &^p&
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub 从一到四依次执行, 原试验文本: === 好好学习 天线向上, 感。 色! 土色 而 好! === 执行后结果: === 好好学习天线向上,感。 色! 土色而好! === 为本人不学无术滥芋存证!
可以发我一份小软件吗,最近正需要,谢谢楼主!
日后有空我将进一步提供更加智能灵敏(遇到可疑情况通过图形界面通知用户由用户决定替换动作,用户可自定义可以情况类别)拥有图形界面的Word魔板文件,并将输入通过对话框进行! 这个应用其实很简单,而且能做到在Word环境里所见即所得!并控制操作的回滚和提交。
我也要:chu_
楼上的朋友都已送出,不过楚剑狂兄是sohu信箱,我不敢肯定能否收到(这两天sina、yahoo、sohu三家联全起来欺负我),如果不行请给这三家以外的信箱重发一次 另:有件事要忘了告诉大家,本软件仅适于简体(GB码)文本,如果要处理繁体(Big5码)文本,请先转为简体(GB码)。
3郎兄:俺也要一份.
先祝三郎新年快乐. 我也要:) duanmuyi- 谢谢谢谢,辛苦了
楼上两位已发
三郎,你的纠正段落开头的软件已经收到。多谢谢了。 :)
谢3郎兄,也请给俺发一份
谢谢三郎。
楼上两位朋友已发 诸位捧场的哥们姐们,三郎从现在开始正式放春假,一直要到2月14才上班.为了过一个快乐的春节,期间将会戒网.需要软件的朋友只管在后跟贴,到春节上来我会大发利是,洒向人间都是爱:) 又,如果已得到软件的朋友愿意帮忙,在此期间能替我转发一下那就更好,不胜感激! 祝大家新年吉祥,阖家欢乐,身体健康,万事如意!!!
请到 /index.html 鼠标右键点击链接
Office_2000.zip ,选择“目标另存为...”,将下载一份名为“Office_2000.jpg”的文件。 下载完成后将文件名“Office_2000.jpg”改成“Office_2000.zip”,然后解压缩,双击文件demo.doc,按照指导操作 ======================================= 使用指南: 打开word 工具-〉宏-&安全性-〉安全级,中 关闭Word再重新打开,选允许运行宏 工具-〉宏-〉宏-〉宏的位置:ClearAndKillx.dot-〉宏名-〉RunAll(无图形界面,可以依次完全回滚中间步骤)或者runApp(有图形界面)-〉运行 请点击上述按钮看运行效果
全部宏源代码,无图形界面版,可以直接拷贝到你本地的Word的宏环境中运行 ============================= Dim TempStr As String Dim xTarget As String Sub runApp() Load Reformat Reformat.Show vbModeless End Sub Sub runAll()
TempStr = && ‘临时匹配串,你可在引号内随意指定
xTarget = &。!:”& ‘可能为段落结尾的尾字符,你可在引号内随意指定
If (check) Then
MsgBox &匹配字串在文中存在,请另外选取&
replaceExcalmatoryMark
replaceParaMark
mergeMultiStr
mergeMultiStrWithSpace
mergeMultiStr
toBeOrNotToBeX
paraGene
End If End Sub Private Function check() As Boolean
Dim checkflag As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
check = .Found
End With End Function Private Sub replaceParaMark()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^l&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^p&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub replaceExcalmatoryMark()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &!&
.Replacement.Text = &!&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStr() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)(& + Trim(TempStr) + &)@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStrWithSpace() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)( )@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)( )@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)( )@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub toBeOrNotToBeX()
Reformat.Hide
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &?(& + Trim(TempStr) + &)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
.Execute
Dim againflag As Boolean
againflag = False
Do While .Found = True
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 1 To Len(xTarget)
If (Left(Selection.Range, 1) = Right(Left(xTarget, i), 1)) Then
flag = True
GoTo lineX
End If
Next lineX:
If (flag) Then
Dim Msg, Style, Title, Response
Msg = &存疑情况,您是否认为该处应该分段?&
Style = vbYesNo + vbDefaultButton2
Title = &MsgBox Demonstration&
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Selection.Range = Left(Selection.Range, 1)
End If
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With
Reformat.Show End Sub Private Sub paraGene()
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr)
.Replacement.Text = &^p&
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub =================================== 图形界面版,需要自己创建图形元素 ================================== Private Sub CommandButton1_Click()
If (check) Then
MsgBox &匹配字串在文中存在,请另外选取&
Reformat.Hide
replaceExcalmatoryMark replaceParaMark mergeMultiStr mergeMultiStrWithSpace mergeMultiStr toBeOrNotToBeX paraGene Reformat.Show
End If End Sub Private Function check() As Boolean
Dim checkflag As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
check = .Found
End With End Function Private Sub replaceParaMark()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^l&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^p&
.Replacement.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub Private Sub replaceExcalmatoryMark()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &!&
.Replacement.Text = &!&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStr() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr.Text) + &)(& + Trim(TempStr.Text) + &)@&
.Replacement.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStrWithSpace() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr.Text) + &)( )@&
.Replacement.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr.Text) + &)( )@&
.Replacement.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr.Text) + &)( )@&
.Replacement.Text = Trim(TempStr.Text)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub toBeOrNotToBeX()
Reformat.Hide
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &?(& + Trim(TempStr.Text) + &)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
.Execute
Dim againflag As Boolean
againflag = False
Do While .Found = True
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 1 To TextBox2.TextLength
If (Left(Selection.Range, 1) = Right(Left(TextBox2.Text, i), 1)) Then
flag = True
GoTo lineX
End If
Next lineX:
If (flag) Then
Dim Msg, Style, Title, Response
Msg = &存疑情况,您是否认为该处应该分段?&
Style = vbYesNo + vbDefaultButton2
Title = &MsgBox Demonstration&
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Selection.Range = Left(Selection.Range, 1)
End If
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With
Reformat.Show End Sub Private Sub paraGene()
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr.Text)
.Replacement.Text = &^p&
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub Private Sub CommandButton2_Click() check CommandButton1.Enabled = False CommandButton2.Enabled = False CommandButton3.Enabled = True End Sub Private Sub CommandButton3_Click() replaceExcalmatoryMark replaceParaMark CommandButton3.Enabled = False CommandButton4.Enabled = True End Sub Private Sub CommandButton4_Click() mergeMultiStr mergeMultiStrWithSpace mergeMultiStr CommandButton4.Enabled = False CommandButton5.Enabled = True End Sub Private Sub CommandButton5_Click() toBeOrNotToBeX CommandButton5.Enabled = False CommandButton6.Enabled = True End Sub Private Sub CommandButton6_Click() paraGene CommandButton6.Enabled = False CommandButton1.Enabled = True CommandButton2.Enabled = True End Sub Private Sub CommandButton7_Click() Unload Me End Sub Private Sub UserForm_Initialize() CommandButton3.Enabled = False CommandButton4.Enabled = False CommandButton5.Enabled = False CommandButton6.Enabled = False End Sub ============================================= 代码倒入 将无界面代码如此 倒入工具-〉宏-〉宏-宏名, 输入runX-&创建 将以下代码 Dim TempStr As String Dim xTarget As String Sub runApp() Load Reformat Reformat.Show vbModeless End Sub Sub runAll()
TempStr = && ‘临时匹配串,你可在引号内随意指定
xTarget = &。!:”& ‘可能为段落结尾的尾字符,你可在引号内随意指定
If (check) Then
MsgBox &匹配字串在文中存在,请另外选取&
replaceExcalmatoryMark
replaceParaMark
mergeMultiStr
mergeMultiStrWithSpace
mergeMultiStr
toBeOrNotToBeX
paraGene
End If End Sub Private Function check() As Boolean
Dim checkflag As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
check = .Found
End With End Function Private Sub replaceParaMark() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &^p&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub replaceExcalmatoryMark()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &!&
.Replacement.Text = &!&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStr() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)(& + Trim(TempStr) + &)@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub mergeMultiStrWithSpace() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &(& + Trim(TempStr) + &)( )@&
.Replacement.Text = Trim(TempStr)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub clearSpace() Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &( )@&
.Replacement.Text = &&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub toBeOrNotToBeX()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &?(& + Trim(TempStr) + &)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
.Execute
Dim againflag As Boolean
againflag = False
Do While .Found = True
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 1 To Len(xTarget)
If (Left(Selection.Range, 1) = Right(Left(xTarget, i), 1)) Then
flag = True
GoTo lineX
End If
Next lineX:
If (flag) Then
Dim Msg, Style, Title, Response
Msg = &存疑情况,您是否认为该处应该分段?&
Style = vbYesNo + vbDefaultButton2
Title = &MsgBox Demonstration&
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Selection.Range = Left(Selection.Range, 1)
End If
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With End Sub Private Sub paraGene()
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Trim(TempStr)
.Replacement.Text = &^p&
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub 复制覆盖到编程区的段落块: Sub run() End Sub
更正: 复制覆盖到编程区的段落块: Sub run() End Sub 应该是 复制覆盖到编程区的段落块: Sub runX() End Sub
这个solution所有人都能用,就某人不能用,用了烂手。如果有朋友发现其中不方便处,欢迎指教,我将推出更加强劲的版本!发电子邮件送,这么老土的方法也想得出来。
用解决方案砸你,这是老尼的发明!
我盛情一个。。。
三郎上班了! 再次发挥本贴余热,有需要软件的朋友可以跟贴了
我狂笑顶一个! 过几天我也利用COM自动化机制搞个批处理!
呵喝,可能由于无耻小人告密,原链接图像文件下载已被过滤裁减,无法形成正确的zip格式文件 现在下载文件格式将为:Office_2000.html,(:))然后改文件名为 Office_2000.zip其余操作,一切照旧!网址是: /index.html 大小应该为54k。 小人就是小人,更加鄙夷! 版本更新,支持中英文混合处理 源代码修改,对于上述RunAll runAll()修改为 Sub runAll()
TempStr = && ‘临时匹配串,你可在引号内随意指定
xTarget = &。!:”.& ‘可能为段落结尾的尾字符,你可在引号内随意指定
If (check) Then
MsgBox &匹配字串在文中存在,请另外选取&
replaceExcalmatoryMark
replaceParaMark
mergeMultiStr
mergeMultiStrWithSpace
mergeMultiStr
toBeOrNotToBeX
paraGene
End If End Sub toBeOrNotToBeX()修改为 Private Sub toBeOrNotToBeX()
Reformat.Hide
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &( )( )@&
.Replacement.Text = & &
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &??(& + Trim(TempStr) + &)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
.Execute
Dim againflag As Boolean
againflag = False
Do While .Found = True
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 1 To Len(xTarget)
Dim lef As String
Dim rig As String
lef = Right(Left(Selection.Range, 2), 1)
If (lef = & &) Then
lef = Left(Left(Selection.Range, 2), 1)
End If
rig = Right(Left(xTarget, i), 1)
If (lef = rig) Then
flag = True
GoTo lineX
End If
Next lineX:
If (flag) Then
Dim Msg, Style, Title, Response
Msg = &存疑情况,您是否认为该处应该分段?&
Style = vbYesNo + vbDefaultButton2
Title = &MsgBox Demonstration&
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Selection.Range = Left(Selection.Range, 1)
End If
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With
Reformat.Show End Sub 对于runApp CommandButton1_Click修改为: Private Sub CommandButton1_Click()
If (check) Then
MsgBox &匹配字串在文中存在,请另外选取&
Reformat.Hide
replaceExcalmatoryMark replaceParaMark mergeMultiStr mergeMultiStrWithSpace mergeMultiStr toBeOrNotToBeX paraGene Reformat.Show
End If End Sub toBeOrNotToBe()修改为: Private Sub toBeOrNotToBeX()
Reformat.Hide
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &( )( )@&
.Replacement.Text = & &
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = &??(& + Trim(TempStr.Text) + &)&
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
.Execute
Dim againflag As Boolean
againflag = False
Do While .Found = True
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 1 To TextBox2.TextLength
Dim lef As String
Dim rig As String
lef = Right(Left(Selection.Range, 2), 1)
If (lef = & &) Then
lef = Left(Left(Selection.Range, 2), 1)
End If
rig = Right(Left(TextBox2.Text, i), 1)
If (lef = rig) Then
flag = True
GoTo lineX
End If
Next lineX:
If (flag) Then
Dim Msg, Style, Title, Response
Msg = &存疑情况,您是否认为该处应该分段?&
Style = vbYesNo + vbDefaultButton2
Title = &MsgBox Demonstration&
Response = MsgBox(Msg, Style)
If Response = vbYes Then
Selection.Range = Left(Selection.Range, 1)
End If
Selection.Range = Left(Selection.Range, 1)
End If
.Execute
End With
Reformat.Show End Sub
老尼无法登入博克,只好先绿脸推荐一把! 以后把那文件放到老尼的博克里!
替换下载 /blogger/view_blog.asp?BlogName=xerox 在 “横行江湖,除妖灭怪”标题下 鼠标右键点击链接:89 在弹出菜单选目标另存为,下载文件89.jpg将文件名改成89.zip,解压缩后,其他照旧
感谢网友小狗狗建议,增加中英文联合处理功能,这个小文件献给网友小狗狗mm:)
如在/index.html下载,请先在浏览器安全选项禁止任何ActiveX控件之运行!
,非常感谢!
楼上的弟兄,发了
三郎兄请赐:
三郎兄请赐:.cn
三郎的这个功能好像更强更实用。word可以删去硬回车,但全部都删,要自己重新手工分段: 替换与寻找--查找内容--特殊字符--段落标记。 在“替换为”框中:不输入任何字符。 点“全部替换”。 如果不多,可一个个审查,选择要不要替换。
泰山之巅上的癫子:软件已发,请查收 北海兄:周六一见,得慕风范;今日再见,尤感亲切.您的&社区论&很有趣,以后我会多想想:)希望以后有机会再见面 村老好,您玩电脑多年了,这么一个小玩意不值得你夸奖.周六见了你的朋友北海舟,聊起过你和&王寅诗歌朗诵会&,按北海兄的话就是&一个乌托邦的下午&:)很神往.希望能有机会当面领教.
楼主啊,不知我现在讨还来的及否??
三郎兄美言,同在一城,相会机会多多。我也乱凑几句,赞一下兄:三郎真春风,乐观更热诚;阅奇书赏美乐,文理皆通天赋高。家中有爱女,生活多滋味。 陈村老师是我敬重的作家,不敢自比为友。而”一个乌托邦的下午“之喻,当陈村老师借王寅诗句对朗诵会气氛的概括。我是很佩服村老的智慧的。
再拜~~~
看到“xxxxx”的使用心得,原来那些侥幸幸存的敬意,全都烟云消散,大笑!
老尼架不住你们这些文革中人的劲头足!哈哈!
请赐:
麻烦春风3郎给我发一份好吗?谢谢先. 地址是:
麻烦春风3郎惠赐:
三郎真春风,乐观更热诚;阅奇书赏美乐,文理皆通天赋高。家中有爱女,生活多滋味。 再加一句“文才自天成,书话真三郎”。呵呵!
楼上朋友软件皆已送出 不过酉山樵和北海两位昨日发出的信都被退回,sina、sohu和yahoo三家不知为什么我总是发不进mail,请两位给一个其他的邮址试试 北海兄,你的这个……这个……真搞得我不好意思了。能认识你真的很高光,你很像我的一个老朋友--前马槽书店老板姜原来,硕果仅存的中年理想主义者:)希望以后有机会再聊。 牛郎兄,你就别再起哄了:)
烦再发:
烦发送,谢。 另:师太的宏也下载了。于我来说二位都是高手,又何必意气。
楼主你好,也请发给我:.cn。谢谢啦!
loujun_ 麻烦了
三郎兄,给一个,谢谢啦! .cn
上面的朋友都已送出. 刘兄好,周六聊得很愉快,希望以后还有机会见面聊天:) 又,刘兄的信箱是yahoo的,我怕发不进去,能否给我一个yahoo、sina、sohu以外的邮址?
3郎兄,请发一个给我,谢谢!
3郎兄,赐小弟一个。谢谢了。
3郎兄,请发一个给我,谢谢!
作者:一只茄子 回复日期: 12:54:11
烦发送,谢。 另:师太的宏也下载了。于我来说二位都是高手,又何必意气。 =========== 不放说说使用后的感想!
一只茄子: 如果你有足够的勇气的话!
楼上的朋友都已送出
使用“←”“→”快捷翻页
请遵守言论规则,不得违反国家法律法规