ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3158|回复: 15

[求助] 档案标签中让文字自适应的问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-7-19 21:26 | 显示全部楼层 |阅读模式
本帖最后由 liuchengyu 于 2019-7-19 21:29 编辑

在日常工作中,经常要迎接各种检查,稍微上档次一点的检查活动,都需要学校准备硬件档案,少的时候几十盒,多的要上百盒,每一盒档案都要在盒子侧面给打印上标签,现在版式差不多就这样了,一张A4纸上打印10个标签,横向打印。自从校长知道我会一点ps之后,打印和设计标签的任务就安排给我了,由于标签里项目的名称不同,每一个标签都可能不一样,最倒霉的时候要一个一个调整,我受够了,但是又不能不做……于是我想用邮件合并的方式,把标签的各项内容放到Excel中,在WORD中用表格或者文本框的形式来批量制作,但是由于各个标签中的内容不一,字数可能也不一致,这就使得合并完成之后,还要手动调整字号、字符间距等,使得所有标签中相同的项目看起来都一样高或者一样宽,比用ps效率高不了多少。
以最左侧的标签为例,上边的小图片和上边2行文字是共用的,每个标签上都一样,不需要调整。C34、师德建设、师德考核、2018年度这4部分中,加红加粗的这3项,不同标签中文字可能不一样多,但是师德建设这部分要求不管有几个字,高度都要保持一致,师德考核、2018年度这两部分要求宽度固定,如果文字多了就减小行距或者字符宽度来调整。



在网上搜了一下,用vba好像能实现对文字格式的设置,但是目前vba一点都不懂,现学不知道来不来得及。
现在我把要求简化一下:
1、所有的文字打算放到文本框中,字体和字号直接设置好,下边两项用vba实现;
2、假设师德建设这部分要求不管有几个字,高度都控制在8厘米,也就是的一个字顶部到最后一个字底部的距离是8厘米;
3、师德考核、2018年度这两行字宽度控制在2厘米;
这个可以用vba实现吗?
或者说不用vba的话,有没有其他可以批量实现的方法?
有没有高手能给指点一下?

档案标签

档案标签

TA的精华主题

TA的得分主题

发表于 2019-7-20 13:28 | 显示全部楼层
楼主,这么美的标签,我还从未看到过。好美!好美!(收藏了!)

TA的精华主题

TA的得分主题

发表于 2019-7-24 10:51 | 显示全部楼层
本帖最后由 413191246se 于 2019-7-24 11:09 编辑

标签名称“师德建设”这部分,楼主 要求 8 厘米,但实际上我已将这部分高度设为 9 厘米多,因为太小,根本无法调整行距(这部分与其它部分不一样,其它部分是调整为一行,而标签名称这部分要调整行距,字一多很难调整,小于 0.75 倍行距已经不太可能了!除非缩小字号,那又不太好看了!另外,现在不能打印英文标签。)

另:请 楼主 说明所使用的操作系统版本、Word版本,打印时要彩色打印吗?

TA的精华主题

TA的得分主题

发表于 2019-7-24 11:11 | 显示全部楼层
* 表格设置薄厚框线效果不如文本框,文本框的又不如 楼主 的图示好看。

TA的精华主题

TA的得分主题

发表于 2019-7-25 01:40 | 显示全部楼层
* 重新设计,容纳英文/数字的标签(纵向)演示图片:
demo_bq.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-25 07:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
413191246se 发表于 2019-7-24 10:51
标签名称“师德建设”这部分,楼主 要求 8 厘米,但实际上我已将这部分高度设为 9 厘米多,因为太小,根本 ...

win7 64位,word2016,打印彩色的

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-25 07:07 | 显示全部楼层
413191246se 发表于 2019-7-24 10:51
标签名称“师德建设”这部分,楼主 要求 8 厘米,但实际上我已将这部分高度设为 9 厘米多,因为太小,根本 ...

因为之前在ps里做的,字的高、宽、间距都可以随意调整,但是做起来效率太低了,经常要逐个调整。所以才想看看大家有什么好的方法。

TA的精华主题

TA的得分主题

发表于 2019-7-25 13:52 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-7-25 13:55 | 显示全部楼层
请 楼主 注意: 5 楼图片是 VBA 代码自动生成的效果,非手动。一次生成几千几万条的标签都没有问题。
请 楼主 最近经常上论坛来……

TA的精华主题

TA的得分主题

发表于 2019-7-26 01:16 | 显示全部楼层
* 楼主,我重新设计、编写了 VBA 代码,算法思路是:文本框中插入1行7列表格(各项指标均可调整)。
* VBA 代码在 Word2003/Word2007 中测试通过,请将宏代码复制到 Word2016 中 Normal 模块中执行。
* 在执行 VBA 宏时,请不要动鼠标和键盘,请耐心等待!也可按 Ctrl+PauseBreak 键中断宏的运行。
* 建议 楼主 在调试代码时,屏幕左侧是文档,右侧是VBE,将光标放在宏代码中按 F8 键逐行运行。
* VBA 代码及示例LOGO、示例数据源,下载链接: Label_linyi_v1a.rar (26.68 KB, 下载次数: 29)
* 标签效果图片: 标签彩色.jpg

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 18:57 , Processed in 0.046048 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表