原创并分享：我的得意代码

loquat

Ctrl+Alt+小键盘"+"可以提取命令名称。

zhanglei1371

loquat 发表于 2013-8-22 18:47
Ctrl+Alt+小键盘"+"可以提取命令名称。

嗯，还可以用listcommands命令来显示所有命令：

loquat

listcommands命令在03中应用毫无问题
但是在07和10中，似乎没有安装office英文语言包就不大好用。
可能是我这里个别问题，之前没有安装中英文双语版本时就没法导出，刚才试了一下，现在我是双语，好像可以。。。

loquat

这个比楼主的代码效率要低一倍

1. Sub 删除全文空白行()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Dim t, aPara As Paragraph
   
5.     t = Timer
   
6.     For Each aPara In ActiveDocument.Paragraphs
   
7.         If Len(aPara.Range.Text) = 1 Then aPara.Range.Delete
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10.     MsgBox Timer - t  '消耗时间
    
11. End Sub

复制代码

wx486

谢谢分享，有空要学习一下。

zhanglei1371

loquat 发表于 2013-8-26 14:54
这个比楼主的代码效率要低一倍

这个代码不完美，因为对于空格+回车这种形式的空行就没用了。

Jovial

好好学习一下，工作中大有用处呢

ke3088

标记一下，方便以后使用

ynhz001

太厉害了嘛，不知道怎么用。

liu_rui_xing

谢谢楼主，学习了