|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210 0 O) e& F: K+ X. ~% C/ ?/ l/ N j/ N
8 h/ [. M+ {, j6 F
- |# T% E5 u$ q3 L* e
Do While FileName <> ""
0 I0 w2 d: b. }' p3 C) ~6 Z9 Q Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)1 A9 N6 z" @% l0 X5 j
Set Part = swApp.ActiveDoc' w% v2 l8 U1 [2 U; j
Set CusPropMgr = Part.Extension.CustomPropertyManager("")+ A- h O' d1 ~
& N' m& I2 X0 I0 D# G$ g @3 l CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值) G! U0 |6 }7 N" M8 d5 T8 o
0 U+ i0 C% \9 m: p errors = swModel.Save2(True)1 f. n* R& f! F3 m3 w
swApp.QuitDoc (FileDir + FileName), S3 o$ }$ \/ |5 u- ~) S
FileName = Dir |
|