[求助]如何去掉多余的行

山水田

如何去掉表中多余的行?

用"替换"的功能好象无法实现

请帮忙.

(就是表中我用蓝色条纹表示出来的那些,下面更多,我只画出部分)

al1eYWXp.rar (15.09 KB, 下载次数: 24)

2005-7-19 11:46 上传

点击文件名下载附件
[求助]如何去掉多余的行

[此贴子已经被作者于2005-7-19 11:46:14编辑过]

守柔

请上传你的部分附件。这个图，看不出，谢谢。

konggs

楼主的意思与标题....，

我做的是删除表格中空行的命令（照老大的改了一下）,（注：不是楼主所需要的！）

Sub Example() Dim aTable As Table, aRow As Row Application.ScreenUpdating = False With ActiveDocument For Each aTable In .Tables For Each aRow In aTable.Rows If Len(aRow.Range) = aTable.Columns.Count * 2 + 2 Then aRow.Range.Rows.Delete Next Next End With Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2005-7-18 17:22:44编辑过]

守柔

TO KONG兄：

这个代码，这样写，会出错的，需要使用错误处理（忽略错误等），因为如果有合并行或者合并列、单元格等，将会出错。

konggs

啊！我实验时没做合并的，所以我以为这样可以。（想多多动手）

合并单元格、合并行，噢，太复杂了，超出我等菜鸟的范围了。

没想到还有这么多的内涵，井底之蛙啊，以后出错的路还长，希望老大指点为感！

[em04][em04][em04][em06][em06]

[此贴子已经被作者于2005-7-18 17:34:53编辑过]

如意

1、全选，剪切，选择性粘贴，无格式文本

2、Ctrl+H，查找：半角空格@^13，替换为^p，注意钩选通配符

3、Ctrl+H，查找：^p^p，替换为：^p

[此贴子已经被作者于2005-7-19 17:48:11编辑过]

山水田

以下是引用如意在2005-7-19 17:45:51的发言：

1、全选，剪切，选择性粘贴，无格式文本

2、Ctrl+H，查找：半角空格@^13，替换为^p，注意钩选通配符

3、Ctrl+H，查找：^p^p，替换为：^p

如果粘贴为无格式文本的话,那么文档中的表格类的都会没有了.

konggs

一、先替换掉空格；

二、再把手工换行符，替换为换行符；

三、再把二个换行符，替换为一个换行符。

山水田

以下是引用konggs在2005-7-20 9:09:16的发言：

一、先替换掉空格；

二、再把手工换行符，替换为换行符；

三、再把二个换行符，替换为一个换行符。

朋友第一点说先换掉空格,但这一行到底应该叫什么空格呢?

选项中有好多,请朋友指教!

如意

1、Ctrl+H，查找：^l，替换为：^p

2、Ctrl+H，查找：半角空格@^13，替换为：^p

3、Ctrl+H，查找：^p^p，替换为：^p