|
4 g8 X% s0 G4 X1 L5 ~- U
目的是把當前文件直接改名到"物料描述"
. p3 }' x1 ?2 z" ^$ z- F. M+ ]
2 C; W! q) I; J7 t! {1 s
5 g4 K$ N' m- m$ W8 f* \' r- e這個沒辦法直接實現的,可以換個方法代替。" N8 p8 g! Q5 R7 h6 c6 b# \
2 O( S6 A& r! x* t
利用新名稱另存文件,然后再在使用此文件的地方執行替換。1 v" ?# _: n1 B, @
7 s& @* s: y; Y, Q. |" E7 z
. h/ t! a+ |/ g( o' L- t D+ W如果這樣可行的話:
: D; \- F J2 W6 A( V, HsFileName = iProperties.Value("Custom", "物料描述") & ".ipt"
2 ~6 ]# k& z O! T/ L& E
( a) u8 n0 a2 k) ~. dsFileDirectory = ThisDoc.WorkspacePath() & "\"
+ H2 S, a4 p' S1 D: kThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
" [3 i$ U; ^) b- n3 W2 O9 b |
|