邮件合并单元格内容长短不一，如何设置

渔舟怅晚

用邮件合并做一份资料。但是某些单元格内容有长有短，为了不让其换行撑大表格，只能在表格属性中设置单元格属性为“适应文字”，这样有超出宽度的内容时，会自动缩小文字。但这样一来带来的问题就是，比较短的内容，会分散对齐，这样就会比较难看。不知道 有没有 什么 好办法解决 ？

413191246se

楼主，你不必分散对齐，在 合并结果 文档中，请试试我下面的宏，看有没有效果：（光标在表格中，只处理光标所在表格；否则，处理所有表格）

1. Sub 表格缩行()
   
2.     Dim t As Table, c As Cell, i&
   
3.     With Selection
   
4.         If .Information(wdWithInTable) = True Then i = 1
   
5.         For Each t In ActiveDocument.Tables
   
6.             If i = 1 Then Set t = .Tables(1)
   
7.             With t.Range.Find
   
8.                 .Execute "^l", , , 0, , , , , , "", 2
   
9.                 .Execute "^13", , , 0, , , , , , "", 2
   
10.             End With
    
11.             For Each c In t.Range.Cells
    
12.                 c.Range.Select
    
13.                 .MoveEnd unit:=wdCharacter, Count:=-1
    
14.                 If .Font.Spacing = "9999999" Then .Font.Spacing = 0
    
15.                 If .Font.Scaling = "9999999" Then .Font.Scaling = 100
    
16.                 If .Range.ComputeStatistics(statistic:=wdStatisticLines) > 1 Then .Font.Spacing = -0.5
    
17.                 Do Until .Range.ComputeStatistics(statistic:=wdStatisticLines) = 1
    
18.                     If .Range.ComputeStatistics(statistic:=wdStatisticLines) = 0 Then Exit Do
    
19.                     .Font.Scaling = .Font.Scaling - 2
    
20.                 Loop
    
21.             Next
    
22.             If i = 1 Then Exit For
    
23.         Next
    
24.     End With
    
25. End Sub

复制代码

渔舟怅晚

413191246se 发表于 2018-4-17 17:43
楼主，你不必分散对齐，在 合并结果 文档中，请试试我下面的宏，看有没有效果：（光标在表格中，只处理光标 ...

感谢热心解答。其实不是我分散对齐，我只是设置了适应文字，然后WORD就将内容少的自动分散对齐了。我不想要分散对齐，因为太难看了。有没有不用代码解决的办法？因为给别人用的，他们也不知道代码怎么用。

413191246se

    如果不想换行，只保持一行的话，恐怕没有好办法，用代码是最好的办法了，它的功能是：将所有不是一行的单元格内容先减少字距，再缩放，使之保持一行。
    单元格少，可以手动；太多的话，最好用代码。
    用宏代码的方法，就是：工具——宏——录制宏——按 Alt + F11 键，拷贝我的代码到 macro1 下面；再按 Alt + F8 找到代码，运行（如果还不会，请查询网络：如何录制宏）。