|
发表于 2023-12-7 13:14:23
|
显示全部楼层
) o Y0 |5 q3 K, ~目的是把当前文件直接改名到"物料描述"
1 v; |1 S; Y$ y9 \7 U p& u* h- a1 b* S
$ ?" p* e7 H6 q& z P( o3 c2 p
这个没办法直接实现的,可以换个方法代替。
. b9 m* `( _) n' r0 J) W+ N. J% `
) P- G" U3 D) T7 Z! j( ]利用新名称另存文件,然后再在使用此文件的地方执行替换。
- U4 g4 T# F6 `" B! ?+ d" v
# Q6 r0 p2 R7 r( F! S! e3 W: r3 `: g6 r4 j2 E, {# E
如果这样可行的话:: i. N; d d/ C( j3 e# J, [8 ]
sFileName = iProperties.Value("Custom", "物料描述") & ".ipt". _ c$ k8 `% m' J
" M' X; X; x8 P- q- o1 s
sFileDirectory = ThisDoc.WorkspacePath() & "\"
! [* A' f$ g! Y8 S5 _ThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
3 N, r" U w+ T9 _4 q0 M |
|