caogis 发表于 2021-10-28 17:58:18

lisp操控word

; 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 'size25);;设置字高
(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 发表于 2021-10-28 20:47:18

感谢共享！

xj6019 发表于 2021-10-28 22:16:29

值得一赞，不错

czb203 发表于 2021-10-30 20:00:35

感谢共享！

原地踏步 发表于 2021-11-1 09:36:54

学习了，谢谢楼主分享。

juliana207 发表于 2021-11-2 15:00:35

谢谢楼主分享

Aries 发表于 2021-11-3 16:33:27


谢谢楼主分享

yhly555 发表于 2023-6-19 21:51:25

看不懂，好好研究一下。
页: [1]
查看完整版本: lisp操控word