|
# p6 ?6 z% ]6 J$ c1 j" v+ [目的是把当前文件直接改名到"物料描述") L* R7 [# k+ y u9 ^ ( M# R) F- l2 \7 ?2 u) O y3 @2 e
" a% c) d: T/ d! A9 F; X+ R这个没办法直接实现的,可以换个方法代替。 ' _1 j6 l, S, L. I1 c; }+ v! | 6 e4 u- U M& W, f t/ m利用新名称另存文件,然后再在使用此文件的地方执行替换。 ' N( D. J8 F) x; m7 N6 }0 Z5 F* @ 4 m/ [5 L5 ^, d3 Y 8 E& M. N9 _3 g5 z如果这样可行的话:5 E$ v" _8 f7 |5 f3 s1 J3 z; B sFileName=iProperties.Value("Custom","物料描述") &".ipt"7 @) {2 i8 }7 R# d( J. x ( E, ~& g8 U3 L7 A- _+ J sFileDirectory=ThisDoc.WorkspacePath() &"\" ' R6 Q$ N( G+ U k. NThisDoc.Document.SaveAs(sFileDirectory&sFileName,True)- K7 k! D; G# d5 [4 f: y
|
|