如何删除word 表格中的空行（有附件）

zhunwang · 发表于 2013-2-17 08:54

11.zip (6.26 KB, 下载次数: 46)

如何删除word 表格中的空行？
要修改的表格在附件的第一页。
修改后要到达的效果在第二页。
要求用简洁快速的方法，比如替换，但试了很久没效果。

祝洪忠- · 发表于 2013-2-17 09:26

全部替换后再处理一下漏网的

nigeshabi · 发表于 2013-2-17 09:48

过来学些下

wuxinyun1999 · 发表于 2013-2-17 09:58

这个问题是老问题了，搜一下会有更详细的解说

dajiahaoxinku12 · 发表于 2013-2-17 10:39

楼主，你这是在分享吗？用查找替换 ^13^13

zhunwang · 发表于 2013-2-17 19:12

祝洪忠- 发表于 2013-2-17 09:26
全部替换后再处理一下漏网的

谢谢！
是有漏网的，能不能一键搞定啊

sqhsqhli · 发表于 2013-2-20 09:36

本帖最后由 sqhsqhli 于 2013-2-20 09:37 编辑

Sub 删除word每个单元格多余段落符号()
Dim s As Table, r As Integer, m As Integer
For Each s In ActiveDocument.Tables
      For r = 1 To s.Rows.Count
         For m = 1 To s.Columns.Count
            s.Cell(r, m).Range.Find.Execute findtext:="^p^p", Replace:=wdReplaceAll, replacewith:="", Forward:=True
            If Left(s.Cell(r, m).Range.FormattedText, 1) = Chr(13) Then s.Cell(r, m).Range.Paragraphs(1).Range.Delete
         Next
      Next
Next
End Sub

lujkhua · 发表于 2015-9-8 09:03

本帖最后由 lujkhua 于 2015-9-8 09:05 编辑

sqhsqhli 发表于 2013-2-20 09:36
Sub 删除word每个单元格多余段落符号()
Dim s As Table, r As Integer, m As Integer
For Each s ...

Tables：文档中的所有表格

		自动登录	找回密码
密码			免费注册

[分享] 如何删除word 表格中的空行（有附件）