电子印章（宏）最终体验版 v5.24

weiyingde · 发表于 2015-11-7 09:31

413191246se朋友，纯手工制作印章，这个我会，但我要的是VBA生成。若能帮助，甚是感激！

413191246se · 发表于 2015-11-7 13:15

楼上，我建议你把我的代码拷贝到 VBE 中，假设你用的是 2007 OFFICE 版本，按 F8 逐条语句测试，了解一下流程，因为主体就是绘图/艺术字两种功能在反复应用，与文档（ActiveDocument）联系很少，里面的数据都是估算值，不必改变（前几楼我已经把EXCEL/PPT下的宏，当然是2003版本，写出来了）。

weiyingde · 发表于 2015-11-7 13:52

算了，还是谢谢你，勉为其难吧

413191246se · 发表于 2015-11-7 14:47

我实在帮不上你了，你得自己动手录制宏，了解一下制作流程，在2007及以上实现。

luqiwe · 发表于 2015-11-14 15:06

With .Range(Array(arr(1), arr(2), arr(3), arr(4))).Group
语句处似乎有BUG，具体原因未能测试查清

413191246se · 发表于 2015-11-14 18:49

楼上朋友，谢谢关注，我在 Word 2003 下测试无误，请再测试之。

weiyingde · 发表于 2016-1-25 13:37

word生成图章太复杂，excel中生成的图章，非常方便，在excel中看看吧，已经解决了。

卧室交锋 · 发表于 2016-2-3 11:29

我一般用这个生成gif文件

leikaiyi123 · 发表于 2017-8-15 11:27

本帖最后由 leikaiyi123 于 2017-8-17 16:28 编辑

1、十年前的《轻松工具箱》就能做了
2、能不能做成反字，便于雕刻？

wdpfox · 发表于 2018-11-8 13:56

With .Range(Array(arr(1), arr(2), arr(3), arr(4))).Group
语句处似乎有BUG，具体原因未能测试查清，在word2016上也无法通过。

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

[分享] 电子印章（宏）最终体验版 v5.24