【魍生技】-代号名称自动分离宏命令

超源

还算实用的功能

dickych

感谢分享，收下了。

饭桶

感谢楼主， 一直困扰的问题，好东西必须学习。
3 p1 H- C. {: \8 n. k6 r7 v

凌凌柒

威望不够，下载不下来

凌凌柒

没下载权限，我输入图号名称也是服服帖帖受不了拉

dickych

谢谢楼主分享

Ranger003

谢谢大佬，这样方便多了

xinshiji666

t = Left(LTrim(e), 3)
6 L7 t: }; T5 B  b这行代码有些多余吧！开始声明了 Dim e As String , 但并没有赋值，这里是想实现：如果文件名开头是“GBT”的话，就自动更改为“GB/T”，可这里的e是空字符串，没有赋值啊！试了一下，可以实现自动添加代号、名称属性，简单实用。
提个建议，程序执行完后，可以弹窗提醒，已完成。在倒数第二行插入：msg = MsgBox("OK", vbOKOnly)

挑剔的耳朵

感谢楼主，有了这个东西真是太好了

雨季77

谢谢分享，学习了。