|
. Y# `8 c" p# t9 l& i目的是把当前文件直接改名到"物料描述" - F+ N( t1 D* R- \ t9 c1 P- l# ]! @/ ]! ] : }; q2 E% t1 o9 Y3 `' A! X 这个没办法直接实现的,可以换个方法代替。 Q+ U) p* ~# N- a/ r% A$ ?3 D/ l1 o" M/ f 利用新名称另存文件,然后再在使用此文件的地方执行替换。 ! m' t1 `5 m% k' B/ E. M) {4 q& L2 r 0 F5 d7 _% Q% Y K( k, W( [1 U7 e9 \- i" @! n5 Y 如果这样可行的话:, L* I+ W& V% s3 ?$ O8 w% ^ sFileName=iProperties.Value("Custom","物料描述") &".ipt" % i) y4 }& U; ? % b2 N( Q; m' y4 r8 b! @( ZsFileDirectory=ThisDoc.WorkspacePath() &"\" ( |, |8 q5 K) t/ QThisDoc.Document.SaveAs(sFileDirectory&sFileName,True)0 ~5 \* p1 ^& G! P& f1 Q
|
|