|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210
+ V+ i' Y9 u4 |. s- Z. S% n2 s, z9 [: |: Y
0 k3 C; n. b; z! a H& F3 s
Do While FileName <> ""
' q3 B% `8 f% Z3 S9 Y Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)
# b, K) | a- H" g, Q Set Part = swApp.ActiveDoc
* y$ o+ g7 G9 K0 c' b1 J Set CusPropMgr = Part.Extension.CustomPropertyManager("")
9 \- v& ?- G9 e, I% o5 W! l5 }
4 x# `) N0 l, A/ b6 g. B/ @ CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值+ ] r! j0 Z- o2 I' h" j, G
5 J0 }/ f, O! b! s( p( ~
errors = swModel.Save2(True)
1 F8 F r/ E i5 y swApp.QuitDoc (FileDir + FileName); L! }% R( P4 X1 w; t
FileName = Dir |
|