|
& p ?* m$ k f2 w' l6 X目的是把当前文件直接改名到"物料描述"
) h3 f2 |4 P" z& y/ T" ]' e% G. d0 y. O! k( g# C% Z
# o; ]$ m+ x0 ~
这个没办法直接实现的,可以换个方法代替。5 t( o; d8 H7 ]* f& [
0 Z; W% A0 E/ E* r5 [) V
利用新名称另存文件,然后再在使用此文件的地方执行替换。
) L% L4 s" {% j9 l. ~
5 f i9 t2 A& m' N; a. J2 F) q
; {8 M, i% O8 ?% f& }8 U如果这样可行的话:3 T! G8 |5 B! B
sFileName = iProperties.Value("Custom", "物料描述") & ".ipt"& ]: F0 F* S2 B2 ^& \
6 t+ j; |7 L. L; P+ W6 L+ ZsFileDirectory = ThisDoc.WorkspacePath() & "\"
5 I( j( ^& p2 EThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
/ e% ~/ m* I+ ? |
|