|
& D4 h1 T r; ]) w
目的是把當前文件直接改名到"物料描述"# z& I0 ^ E2 g% A- l0 h
% V& H. |0 ^3 g8 p+ I& ~. x. a$ c
3 ~( I* b" H2 i+ t* M1 {8 J8 L
這個沒辦法直接實現的,可以換個方法代替。6 o" o$ t5 C% D# U0 i) [ x
' O: {" y5 s+ e: E7 S$ L利用新名稱另存文件,然后再在使用此文件的地方執行替換。0 U1 i; Z' F3 _. O, O" I
/ S5 u7 h7 n3 g9 c1 w5 G# V/ y
: k: k) s. e0 j& h/ E, Q0 V如果這樣可行的話:
4 Z& O4 w7 y9 K" [sFileName = iProperties.Value("Custom", "物料描述") & ".ipt": S, t0 l+ R: m9 u
E( W# P4 l L0 G
sFileDirectory = ThisDoc.WorkspacePath() & "\"
: x3 l7 A0 {. hThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
1 {$ U: D6 H% A) x |
|