用AutoHotkey删除Word里图片后面的特定字符（Word查找图片的BUG）

本来用word自带的通配符模式查找/替换就能删除，

比如删除所有图片后面的段落符：

• 查找：(^g)p
• 替换：\1

\1表示括号内的内容，这样就把括号外的内容删掉了。

但是由于word在通配符模式下^g查找图片有BUG，无法查找，

而要实现只删除图片后面的段落符，要用到带()的表达式（通配符模式才支持），

然后这两个功能被word完美隔绝。无奈下转用AutoHotkey调用VBA解决。

以下是AutoHotkey v2 beta版代码

F9:: {
    ow := ComObjActive("Word.Application")
    loop(ow.ActiveDocument.InlineShapes.count) { ;遍历所有的形状(表格，图片，控件等等)
        o := ow.ActiveDocument.InlineShapes(A_Index)
        if (o.type == 3) { ;=图片
           o.select
           oText := ow.selection.next(1,1) ;获取图片后面的第一个字符
           if (ord(oText.text) == 13) ;只删除段落符
             oText.delete
        }
    }
}