关于邮件合并后的多余空白数据行问题

fancyparadise

各位大神，日常工作每日需要大量数据给到不同客户，根据论坛帖子制作了一个邮件合并发送的模板，但是遇到一个问题是由于客户的数据行数不同，从1到200不等，所以导致某些客户收到邮件下方会有100多条空白数据行，请问有否可以发送时自动删除空白行的宏，还请各位大神指点一下。谢谢了！！！

413191246se

楼主，建议生成 合并结果文件 后，备份，小心试用下面的《删除表格空白行》宏：（网友编的）

1. Sub 删除表格空白行()
   
2.     Dim tb As Table, r As Row
   
3.     With ActiveDocument
   
4.         For Each tb In .Tables
   
5.             For Each r In tb.Rows
   
6.                 r.Range.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
7.                 r.Range.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
   
8.                 r.Range.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
   
9.                 If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

fancyparadise

太感谢了，我到公司去试试。

微笑de背后

哈哈  网友提供的这个代码好用  能给小白解释下不   因为我需要必须以第二列为准  空值删除，还想学下 谢谢