|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210
: P% {) ]% A: m8 a! d) b$ R' ~3 D" V. s. O6 ?- F
& I* C+ d2 N- W: yDo While FileName <> ""
, q; V, d+ E+ Q8 S' Z* A+ `9 f4 Q! H( K Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)
, A; A6 Q& x( f Set Part = swApp.ActiveDoc/ s+ E2 L N# C% J6 Z+ h. O
Set CusPropMgr = Part.Extension.CustomPropertyManager("")5 S& o2 \3 W: K: f& P$ P2 v( j
, t8 R+ y! p* r; }& ?, k' f8 z
CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值
/ g& Y) P3 i, l7 m) W
. f$ s9 o7 U& F0 [2 {9 P( H5 { errors = swModel.Save2(True)
$ G" x( a& n* H; H* t( g swApp.QuitDoc (FileDir + FileName)! k& A& Y9 w& c: Q) d
FileName = Dir |
|