lisp操控word

caogis

; Gu_xl 版主通过Range方法操控word
;现通过selection操控word字体
  (vl-load-com)
  (setq Rtn (vlax-get-or-create-object "Word.Application"))
  (vlax-invoke-method (vlax-get-property Rtn 'Documents) 'Add)
;;;selection方法
  (setq cs (vlax-get-property Rtn 'selection))
;;;设置字体
  (setq W-F (vlax-get-property cs 'font))
  (vlax-put-property W-F 'Name  "黑体");;设置字体
  (vlax-put-property W-F 'size  25);;设置字高
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Subscript 1);;;设置下标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Subscript 0);;;取消下标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Superscript 1);;;设置上标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Superscript 0);;;取消上标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Superscript 1);;;设置上标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'Superscript 0);;;取消上标
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-invoke-method cs 'typeparagraph);;;回车符
  (vlax-put-property W-F 'Underline 1);;;设置下划线
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
  (vlax-put-property W-F 'UnderlineColor 120);;;设置下划线颜色
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字
　(vlax-put-property W-F 'Underline 0);;;取消下划线
  (vlax-invoke-method cs 'typetext "明经通道");;;输入文字

;;;其余特性可参考word的VBA手册

  (vla-put-visible Rtn 1)
  (vlax-release-object Rtn)

guosheyang

感谢共享！

xj6019

值得一赞，不错

czb203

感谢共享！

原地踏步

学习了，谢谢楼主分享。

juliana207

谢谢楼主分享

Aries

谢谢楼主分享

yhly555

看不懂，好好研究一下。