TA的每日心情![](source/plugin/dsu_paulsign/img/emot/kx.gif) | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
通过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) |
|