AutoHotKey给Word加平铺水印

最新推荐文章于 2023-11-11 14:00:45 发布

托尼Excel

最新推荐文章于 2023-11-11 14:00:45 发布

阅读量524

点赞数

文章标签：办公软件 autohotkey

©Dot1x

本文链接：https://blog.csdn.net/qq980469001/article/details/106008972

版权

这篇博客介绍了如何利用AutoHotKey脚本工具，为Word文档快速添加平铺水印。通过设置快捷键，用户可以轻松启动、退出脚本，并查看当前Word文档的名称。

摘要由CSDN通过智能技术生成

快捷键指南：
s：开始程序
q：退出脚本程序
w：查看当前Word名称

#IfWinExist, ahk_class OpusApp


s::
wordApp := ComObjCreate("Word.Application")
;wordApp := ComObjActive("Word.Application")
;wordApp.Documents.Activate
;wordApp.ActiveDocument.Sections(1).Range.Select
wordApp.Visible := True
wordApp.Documents.Add
wordApp.ActiveWindow.ActivePane.View.SeekView := 9
wordApp.Selection.HeaderFooter.Shapes.AddTextEffect(0, "Dot1x © QQ980469001", "微软雅黑", 1, False, False, 0, 0).Select
wordApp.Selection.ShapeRange.Name := "0"

wordApp.Selection.ShapeRange.TextEffect.NormalizedHeight := False
wordApp.Selection.ShapeRange.Line.Visible