关于word嵌入型图片批量锐化

lcb109

有一个从pdf转化为word的文档，474页，全部都是嵌入型图片。
需要将图片全部增加锐化值。
用了论坛大神以下的代码：
Sub 锐化()
    Dim myrange As InlineShape
    Application.ScreenUpdating = False
    With Selection
        For Each myrange In .InlineShapes
            Set myrange1 = myrange.ConvertToShape       '先换成浮动图形
            With myrange1.Fill.PictureEffects                     '浮动图形才可应用填充图形效果，嵌入图形不可应用图形效果
                Set sha = .Insert(msoEffectSharpenSoften)        '给图形应用锐化效果
                sha.EffectParameters(1).Value = 0.7                   '锐化+70%
            End With
            myrange1.ConvertToInlineShape       '再换成嵌入图形
        Next
    End With
    Application.ScreenUpdating = True
End Sub
代码应该是没有问题的，但是出现两个问题
1.全选后执行代码，代码没有执行完就报错，查看效果锐化了前面80多页。
2.没办法保存了

ming0018

不用selection试一下

lcb109

ming0018 发表于 2018-9-3 14:24
不用selection试一下

找到原因了，原来是因为文件太大。代码执行到一半文件超过500M好像就不能修改和保存了。

wqwqwqwqwq

没明白，学习一下

fireicefan

试用执行出错。
word的vba里也查不到这个指令，好象是用于ppt的？

可以怎么样修改调整呢（我的是word2013）