彩色标签（宏）2019-8-3 更新！

413191246se

* 文本框开始我也不想用，但发现表格框线设置后不如文本框的框线设置格式美观；并且原作者也要求用文本框，故而用了文本框。

* 选择套用预先设置好的标签格式——这个不太会，或根本不懂。我不太会样式，我都是用 VBA 设置格式，或套用内置标题样式后修改格式。

* 目录类型邮件合并，这个一点儿也不懂。邮件合并我也是慢慢地会一点的，也是非常简单的，普通文档做域文档，简单地合并一下。至于什么“下一页”之类的规则，确实不会。——我今天甚至想完全用表格实现后，再把表格及其后面的回车符一同装进文本框，但试了后发现扭曲了，当然设置格式后应该正常。（我也注意到了，尽量把域文档设置详细一些，再合并，比较好些。）

* 我过去也一向用 Word2003，最近前几个月，在家也安装了 Word2007，因为大多数人都安装了高版本，有时出代码也要考虑到 2007及以上，所以，今后我要多用 Word2007。建议您也可以来这个 Word2003 + Word2007 并存，安装时只要保留 2003 的就行了。但在电脑慢时 2007 运行慢一些，2003 则飞快。

* 前一段，我推出了《Word2003 & 2007 自动排版宏（集成版）2019-7-9》，但其实也是只针对普通的小文档有用，对付超大文本/巨大文本有时无效。因为其有许多“节”或其它符号，排版有时干脆没走几步。

* 我在考虑：是否要编一个简易的窗体文字处理程序 呢？主要是为了方便。

* 谢谢 老师！ 祝注意身体，经常上论坛来看看，指导帮助一下我们这些小菜鸟。

413191246se

* zhanglei1371 老师，您好！
* 您的回复我又认真看了一遍，觉得可能真的是您说的是表格设置宽窄不一导致缩放不如人意。昨晚，接受了 sylun 老师 和 duquancai 老师的指导建议，先邮件合并，再分模块处理表格，把最后缩放一步放到最后，避免了缩放产生的问题，成功了！
* 虽然今年以来我也注意到了模块化编程的问题，但一直做得不好，仍然是大块代码都叠加在一起。看来，以后尽量还是使代码模块化，尽量缩小才好，向“精简、整洁”的代码风格迈进。

sylun

还是建议主文档用表格式，嵌套表格，即一个一行8列表格中嵌套8个表格，每个嵌套就是一个标签。设置好表格的行为列宽固定值，段落间距固定值等。
工作文档中依标签各项文本长度分别设定若干个标签，到时就是套用这些标签中相应各项的字符格式。
套用字符格式可参考http://club.excelhome.net/thread-1488671-2-1.html中12楼的有关代码
我现在除了用word与exce结合处理数据外，很少需要用到VBA了，应付这些任务，2003基本够用了。本来有正版2013的，一换硬盘就成盗版了

413191246se

* 嵌套表格，VBA 是不是不容易控制呢？我还没有经验。
* 套用标签格式，似乎没弄明白。但觉得好像处理速度上会很快（我现在喜欢 VBA 速度快，代码简洁）。老师可否提供一个图样？
* 我现在手里有 Office2003 专业企业版（650MB） 和 Office2007 专业企业版（700MB），用多少年都没有问题，老师 是否需要？
如果需要，我可以马上上传到我的《腾讯微盘》。
* 老师 要是不换版本，建议可以使用我的《Word2003 & 2007 自动排版宏》里面的 Word2003-Win7 代码，我在单位也是用 Win7(32bit) + Word2003，好处是：只须按一下 F8 键，马上公文排版，速度还是很快的。

tangqingfu

谢谢413191246se兄的分享！辛苦了！佩服您的研究精神。
对于文本为两个或两个字以上的标签能否统一高度(宽度），能否做到两个字的高度与两个以上的高度（宽度）相同？这样会不会更统一、更美观？

sylun

413191246se 发表于 2019-8-2 00:41
* 嵌套表格，VBA 是不是不容易控制呢？我还没有经验。
* 套用标签格式，似乎没弄明白。但觉得好像处理速度 ...

其实如果只设定标签各项长度的话，可用分散对齐进行简单设置，这时可以不用代码，直接邮件合并生成即可。如用代码，且主文档用嵌套表格，可试试：

1. Sub test()
   
2.     Dim aTable As Table
   
3.     Dim aCell As Cell
   
4.     Dim nCell As Cell
   
5.     Dim i As Integer
   
6.     Dim n As Integer
   
7.    
   
8.     Application.ScreenUpdating = False
   
9.     For Each aTable In ActiveDocument.Tables
   
10.         i = i + 1
    
11.         For Each aCell In aTable.Range.Cells
    
12.             If aCell.Tables.Count > 0 Then
    
13.                 For Each nCell In aCell.Tables(1).Range.Cells
    
14.                     n = n + 1
    
15.                     Select Case n
    
16.                     Case 3
    
17.                         nCell.Range.FitTextWidth = CentimetersToPoints(1.2)
    
18.                     Case 4
    
19.                         nCell.Range.FitTextWidth = CentimetersToPoints(8)
    
20.                     Case Is > 1
    
21.                         nCell.Range.FitTextWidth = CentimetersToPoints(1.6)
    
22.                     End Select
    
23.                 Next
    
24.             End If
    
25.             n = 0
    
26.         Next
    
27.         If i = 1 Then Exit Sub
    
28.     Next
    
29.     Application.ScreenUpdating = True
    
30. End Sub
    

复制代码

413191246se

* sylun 老师 的代码，看到了，让我过后仔细想想。。。
* 唐兄，让你久等了！ 折腾了半天代码，减少了不少，因为计算变得简单了；我总觉得 8 厘米是太小了，与上下离得太近了，想分散对齐后，再上下缩进半字符（其实是左右），但发现字多的标签又变两行了，作罢！现在第 5 单元格（标签名称）内的文字都是分散对齐了，2字/3字/4字也都与 5字、6字这些多字单元格一样等高。
* 请 唐兄 看看效果如何？如果没有修改，明天发布最新版本（第5版）代码。

wdpfox

这类标签是用在档案盒的“脊梁”上的，可否表为1列8行，这样表高够大，字基本上不用缩小字号了吧，只是感觉。

wdpfox

或者页面设为“  横向 ”

413191246se

wdpfox 朋友，有兴趣可下载试用一下，感觉一下，交流一下（做这个"彩色标签"的目的是为了帮助那位 临沂 的朋友，同时也是锻炼一下；其实过去我有个简单的“标签”宏，一般够用）。