sheoh 发表于 2014-3-14 09:14:07

求lisp控制word写入页眉页脚的函数

本帖最后由 sheoh 于 2014-3-14 10:39 编辑

如题：求lisp控制word写入页眉页脚的函数，不会VB真的很伤啊。。。。给个例子啊。。。
以下图片是在word中录制的宏。。。求指导。。。

sheoh 发表于 2014-3-14 15:46:46

(setq xyn (vlax-get-property docobj 'ActiveWindow))
(setq xyn1 (vlax-get-property xyn 'ActivePane))
(setq xyn2 (vlax-get-property xyn1 'View))
(vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader)
(setq xyn3 (vlax-get-property xyn2 'SeekView))
(setq NOW (vlax-get-property WordObj 'selection))
(MW-INSERTAFTER NOW "苏州XXX建筑设计有限公司")这样是可以达到写入页眉的目的的，但总感觉有点奇怪，坐等G版教育。。。。

sheoh 发表于 2014-3-14 11:29:43

本帖最后由 sheoh 于 2014-3-14 13:49 编辑

(setq xyn (vlax-get-property docobj 'ActiveWindow))
(setq xyn1 (vlax-get-property xyn 'ActivePane))
(setq xyn2 (vlax-get-property xyn1 'View))
(setq xyn3 (vlax-get-property xyn2 'SeekView))
(setq xyn4 (vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader))是这样子写吗？好繁琐啊。。。
但是，文字部分怎么写进去呢

xyp1964 发表于 2014-3-14 12:32:21

中毒太深！

sheoh 发表于 2014-3-14 13:51:11

xyp1964 发表于 2014-3-14 12:32 static/image/common/back.gif
中毒太深！

求解药！。。。

sheoh 发表于 2014-3-14 15:20:36

不能沉下去啊。。。

shutiao 发表于 2023-2-18 23:41:40

求解求解 马克
页: [1]
查看完整版本: 求lisp控制word写入页眉页脚的函数