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

sheoh

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

sheoh

2.   (setq xyn (vlax-get-property docobj 'ActiveWindow))
   
3.   (setq xyn1 (vlax-get-property xyn 'ActivePane))
   
4.   (setq xyn2 (vlax-get-property xyn1 'View))  
   
5.   (vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader)
   
6.   (setq xyn3 (vlax-get-property xyn2 'SeekView))
   
7.   (setq NOW (vlax-get-property WordObj 'selection))
   
8.   (MW-INSERTAFTER NOW "苏州XXX建筑设计有限公司")

  (setq xyn (vlax-get-property docobj 'ActiveWindow))<br />   (setq xyn1 (vlax-get-property xyn 'ActivePane))<br />   (setq xyn2 (vlax-get-property xyn1 'View))  <br />   (vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader) <br />   (setq xyn3 (vlax-get-property xyn2 'SeekView))<br />   (setq NOW (vlax-get-property WordObj 'selection))<br />   (MW-INSERTAFTER NOW "苏州XXX建筑设计有限公司")

这样是可以达到写入页眉的目的的，但总感觉有点奇怪，坐等G版教育。。。。

sheoh

2.   (setq xyn (vlax-get-property docobj 'ActiveWindow))
   
3.   (setq xyn1 (vlax-get-property xyn 'ActivePane))
   
4.   (setq xyn2 (vlax-get-property xyn1 'View))
   
5.   (setq xyn3 (vlax-get-property xyn2 'SeekView))
   
6.   (setq xyn4 (vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader))

  (setq xyn (vlax-get-property docobj 'ActiveWindow))<br />   (setq xyn1 (vlax-get-property xyn 'ActivePane))<br />   (setq xyn2 (vlax-get-property xyn1 'View))<br />   (setq xyn3 (vlax-get-property xyn2 'SeekView))<br />   (setq xyn4 (vlax-put-property xyn2 'SeekView MW-wdSeekCurrentPageHeader))

是这样子写吗？好繁琐啊。。。
但是，文字部分怎么写进去呢

xyp1964

中毒太深！

sheoh

xyp1964 发表于 2014-3-14 12:32
中毒太深！

求解药！。。。

sheoh

不能沉下去啊。。。

shutiao

求解求解 马克