|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210
: {/ p6 I) p% a, b, L! S9 J% @- n; s; b; P
- Y2 r( J. ^/ | J6 y1 W7 e
Do While FileName <> ""
$ [9 ^, m& R/ ~5 J+ C2 L Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)( g7 K2 x: A4 `& j
Set Part = swApp.ActiveDoc$ n4 V5 s. j! _6 k9 b4 [0 `4 j
Set CusPropMgr = Part.Extension.CustomPropertyManager("")1 m, W" ~3 f% x" C8 ^1 |/ \3 M
$ B' O. q- U& M7 d: s" l CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值
% J! _! ~' _* X7 j
% N1 k8 c; R, e" Z3 H) A% X$ k errors = swModel.Save2(True)
4 z. E( [9 M: |8 s swApp.QuitDoc (FileDir + FileName)" z1 g8 F H' W! z% p, c
FileName = Dir |
|