下面是从网上找的代码,可以实现简单的替换功能,把“总结计划”替换成“原始计划”。
ahk 版本为1.1.33.02,office版本为2016
Code: Select all
#SingleInstance force
!m:: ;Alt+m快捷键。
oWord := ComObjActive("Word.Application")
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Replacement.ClearFormatting
oWord.Selection.Find.Replacement.Style := "Heading 1" ;设置一级样式,但是运行时报错,无法实现。
oWord.Selection.Find.Execute("总结计划", 0, 0, 1, 0, 0, 1, 1, 0, "原始计划", 2)