| 把这个拷贝到宏里,按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: | 从几个案例看网上舆论何以距离事实真相 | |





