|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210 ! E( a8 h* P& n4 A( `7 F
1 Q' l# q; }' H
! Y! @$ L, y/ M7 S* iDo While FileName <> ""
# K6 @5 t' p! a! t; U* r& ? Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)1 M* U y( l5 K5 o% ]
Set Part = swApp.ActiveDoc, h9 r4 U" S1 l: h
Set CusPropMgr = Part.Extension.CustomPropertyManager("")* l5 B2 N3 x4 n2 S; O0 @
$ d' D$ b" K6 f4 M
CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值
: _& t9 p2 u8 Z% {" x
" S1 `* j1 K6 |5 ~! j. w errors = swModel.Save2(True)2 V1 ^( O; U3 u9 T% q
swApp.QuitDoc (FileDir + FileName)
/ v7 K8 t/ H6 Z FileName = Dir |
|