|

楼主 |
发表于 2013-6-25 13:05:59
|
显示全部楼层
来自: 中国辽宁沈阳
本帖最后由 qiminger 于 2013-6-28 13:28 编辑 / R I* m2 N5 _ z2 }3 f4 d# Z
) e; \2 T) s' E; A/ b( g: ~; {- S, m, b/ l# D' A
十分感谢梁老师提供代码学习~~ H$ ~) M+ X f0 K
1 M2 W X4 a p _2 I3 x提示进来学习的坛友!) u# ^& b& I8 f
通过在自定义属性里嵌入宏代码,问题已解决。
4 r$ M9 I: {1 y0 _) ~2 d下面代码在2011版本中均已测试成功。7 h) i; G/ |( K* z- K
3 j9 m1 c, s# p7 ]: a/ H/ z
15楼代码,可以取左边字符& q) [/ U4 Y6 n2 E+ a1 l
19楼代码,可以取最后一个下划线后面的字符。
: x* q$ q7 b7 H9 D# r4 u1 N
4 o# {, E4 N1 x n, ]- S下面这段代码,可以取第一个下划线前面的字符。2 H" q4 M; i4 d
1- x: k4 l$ N6 f& f% w j$ |
dim yfd
* A/ M8 h( |0 _( l6 qyfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1)) |
|