|
9#
發(fā)表于 2023-12-7 13:14:23
|
只看該作者
$ _2 f1 ^$ \9 v3 L
目的是把當(dāng)前文件直接改名到"物料描述"
5 R" k* a4 `& M+ v3 J
. I) T7 O: [/ W* ?4 d+ j1 U; b' k( H& p0 Q7 @: X+ Q3 P) G
這個(gè)沒(méi)辦法直接實(shí)現(xiàn)的,可以換個(gè)方法代替,。
( V+ z8 `) L5 u% Q" _& l8 q4 B! G
3 H) L! V0 H% \/ y7 e+ `利用新名稱(chēng)另存文件,,然后再在使用此文件的地方執(zhí)行替換。" U$ a! S. X) c Z& ]$ l' F
$ B, X X- Q6 m1 E( e. p- h' ^" F$ I* e5 [
如果這樣可行的話(huà):" K! m9 n+ ?3 R0 G4 b- G
sFileName = iProperties.Value("Custom", "物料描述") & ".ipt"
0 N* z# g: y8 L# @9 D' |! g# r! ^& [! `$ L
sFileDirectory = ThisDoc.WorkspacePath() & "\"! s" U0 L m1 r- N; R5 a
ThisDoc.Document.SaveAs(sFileDirectory & sFileName, True), n: e: _* Q9 G; i2 Z. m, E' ^, T' H
|
|