用宏代码删除Word文档中的表格空行
由于工作的需要,在word文档中粘贴了很多表格,表格中的数据有多有少,因此各个表格中出现了数量不等的空行(见图1),这些空行自然可以手工删除,但显然是相当的麻烦,而且工作效率也低。如果是在Excel中进行操作,那么可以快速将相关的空行删除,但目前的情况下复制转换相当的不便,有没有简单一些的方法呢?
此主题相关图片如下:001.jpg
其实,我们可以利用宏代码快速删除word文档中的这些空行。按下“Alt+F11”组合键打开MicrosoftVisualBasic编辑器窗口,依次执行“插入模块”,在右侧窗格中插入一个空白模块,手工输入如下代码:
Sub删除表格空行()
DimaTableAsTable,aRowAsRow
Application.ScreenUpdating=False
ForEachaTableInActiveDocument.Tables
???ForEachaRowInaTable.Rows
???????IfLen(aRow.Range) ???Next
Next
Application.ScreenUpdating=True
EndSub
???单击工具栏上的“保存”按钮进行保存,执行“文件关闭并返回到Microsoftword”,返回Word窗口之后,按下“Alt+F8”组合键,打开“宏”对话框,选中列表框中的“删除表格空行”宏,单击右侧的“运行”按钮,很快可以看到图2所示的效果,是不是很方便?
此主题相关图片如下:002.jpg
|
|