把这个拷贝到宏里,按F5(执行)就OK了 |
送交者: 卖油翁 2013月02月05日02:55:01 于 [世界时事论坛] 发送悄悄话 |
回 答: 好象见过但没用过,油大牛你就点拔下吧!本想不打扰你的但估计你 由 左右逢源 于 2013-02-05 02:33:28 |
Sub Macro1()
Selection.HomeKey Unit:=wdStory For i = 0 To 500 Selection.Find.ClearFormatting With Selection.Find .Text = """" '找双引号",然后删除后面的 End With Selection.Find.Execute Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeParagraph Next End Sub |
|
|
|
实用资讯 | |
|
|
一周点击热帖 | 更多>> |
一周回复热帖 |
历史上的今天:回复热帖 |
2012: | 张春桥坚信:历史将会替我辩护! | |
2012: | 趁热打铁,本猫再来揭一下道友的画皮 | |
2011: | 兔年春晚贺电广告中唯一的外商品牌 | |
2011: | 从几个案例看网上舆论何以距离事实真相 | |