|
! t. @, G) @4 m# o H5 J7 j
目的是把當前文件直接改名到"物料描述"
( X1 m4 }4 |/ c6 d5 d2 p3 p
, A9 s1 ^ @* s+ Q+ e* n6 t
9 H0 v- U" v7 \: \& p0 }這個沒辦法直接實現的,可以換個方法代替。. y9 w$ b7 b! m( l; |+ u
9 G7 E6 G+ {2 z& d F
利用新名稱另存文件,然后再在使用此文件的地方執行替換。
' M! v" [+ ~2 \" H1 \2 T* U8 q) l: `; |9 r' K! v
% `$ I! f+ h( N0 A% i$ E- [ o. [如果這樣可行的話:
% G5 ^) P+ Y3 P; R- w: KsFileName = iProperties.Value("Custom", "物料描述") & ".ipt"
$ o! m; V1 M# g. O7 Q% T, K7 z
sFileDirectory = ThisDoc.WorkspacePath() & "\"
" ]- I$ S( K, Z4 NThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
8 ]% r3 _0 ?. v5 e% { |
|