|
% P; ~% y7 p% u4 e目的是把当前文件直接改名到"物料描述"
K% ?% v$ ]* p) b5 s- h
) _: c3 }- J3 t- c: X
/ Y/ ]4 e- m+ h9 I, Z( l# U( M这个没办法直接实现的,可以换个方法代替。
4 M4 r" U* { j1 t3 l- j- |8 ]1 F! u4 T# Q6 B5 i* M8 _, z/ N
利用新名称另存文件,然后再在使用此文件的地方执行替换。
+ l, u( ~- N. A5 u2 F4 f% k
1 f. L) h5 [+ o1 M6 h8 Y! U' j
" s7 `1 X A# [1 o% k2 ~' Q: v如果这样可行的话:- e3 F+ D5 w: X2 i% m6 H
sFileName = iProperties.Value("Custom", "物料描述") & ".ipt"& Y8 n8 Z4 w/ X' J+ ]
, E$ w" h3 P) s" w; rsFileDirectory = ThisDoc.WorkspacePath() & "\"% C) D |5 Z" ]" I4 i( I K
ThisDoc.Document.SaveAs(sFileDirectory & sFileName, True)
+ a: D9 o' q+ T5 T1 g& w" | |
|