|
9#
發(fā)表于 2023-12-7 13:14:23
|
只看該作者
5 a* O( {3 m5 J1 ~6 `
目的是把當(dāng)前文件直接改名到"物料描述"
$ w) s" ]+ z8 q3 Z8 w7 ~2 B$ e! ]0 a; g; u/ Y& _" X: s c
9 A: C+ `8 @3 X+ c7 I* H& |這個(gè)沒辦法直接實(shí)現(xiàn)的,,可以換個(gè)方法代替。
# z ]. {/ E$ c3 E! \3 l G# v; S
4 B) l! ]' U' h# j利用新名稱另存文件,,然后再在使用此文件的地方執(zhí)行替換,。
$ U/ S7 M; v6 ~4 y# G9 O2 v8 b! m6 X( D# a y" m; j* K% j8 Z: V, _. z! Y
7 c+ h8 A' U) f' @! c. t, D, j如果這樣可行的話:
6 j% i8 {, I1 f7 B" N$ x; z+ }4 AsFileName = iProperties.Value("Custom", "物料描述") & ".ipt"
8 f9 A) [% V X k. Y! V% p
) _9 J" x6 q$ G9 C: L% W6 x7 vsFileDirectory = ThisDoc.WorkspacePath() & "\"
- q' P9 W6 M; G7 EThisDoc.Document.SaveAs(sFileDirectory & sFileName, True) |( M; f+ A; y4 d
|
|