有请守柔出手，WORD图片批量压缩有没有不用sendkey的代码

我用守柔版主的如下代码压缩图片，并且已经把宏安全性调到低，只是效果时灵时不灵的，我手动操作压缩图片又是可以压缩的，
所以我想请问：1。还有没有别的代码是不需要用到sendkeys，复杂点也没关系。
              2。能不能将这段代码改进下，让它可以确定完成任务。

FN = Dir(myPath & "\*.jpg")
Do While FN <> ""
    Selection.InlineShapes.AddPicture FN
    FN = Dir
Loop
'======================================================
    SendKeys "{ENTER}", False
    SendKeys "{ENTER}", False
    Word.CommandBars("Picture").Controls("压缩图片(&C)...").Execute

应该是SendKeys 不可靠，这是正常的