Word VBA批量处理图片时，如何标识当前正在处理的图片？

问题根源：执行iShp.Select后立刻弹出MsgBox，Word的界面刷新会被对话框阻塞，导致选中的高亮标记无法显示。

解决思路：先让文档滚动到当前图片位置，强制刷新界面，再弹出确认对话框。

修改后的代码：

Sub change_images()
  Dim iShp As InlineShape
  Dim imgIndex As Integer
  imgIndex = 0
  
  For Each iShp In ActiveDocument.InlineShapes
    With iShp
      If .Type = wdInlineShapePicture Then
        imgIndex = imgIndex + 1
        ' 滚动到当前图片所在位置，确保可见
        ActiveWindow.ScrollIntoView iShp.Range
        ' 选中当前图片
        iShp.Select
        ' 强制刷新界面，显示选中标记
        DoEvents
        ' 对话框加入图片序号，方便区分处理进度
        CarryOn = MsgBox("是否修改第" & imgIndex & "张图片？", vbYesNo, "图片修改确认")
        If CarryOn = vbYes Then
            .LockAspectRatio = msoTrue
            .Width = 28.345 * 12
        End If
      End If
    End With
  Next
End Sub

关键修改说明：

• ActiveWindow.ScrollIntoView iShp.Range：将窗口滚动到当前图片的位置，确保图片在可视区域内
• DoEvents：强制Word完成界面刷新操作，让选中标记正常显示
• 新增图片序号计数：在对话框中显示当前处理的是第几张图片，进一步提升操作辨识度

运行代码后，Word会自动定位并高亮选中当前图片，随后弹出确认对话框，此时能清晰看到正在处理的目标图片。

内容的提问来源于stack exchange，提问作者Lever