lisp操控word

admin1

通过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)