Question

我们有一个包含大约100页的Word文档，每页有两个图像框。所以我们应该在文档中插入200张图片。

我们需要一个VBA宏来读取图片文件夹并将图片放在框架中。

图片名称的顺序如001,002，......

Answer 1

很抱歉提出一个旧的，但它可能会帮助其他人，这是一个宏，您应该能够适应您的需求。这将复制照片，直到没有剩余的帧，然后退出，如果照片多于帧，您可能需要修改它以添加警告框。

Sub AutoPicResize()
Dim iShp As InlineShape
Dim i As Integer
    Word.Application.ScreenUpdating = False
    With Word.Application.ActiveDocument
        i = 1
        Max = ActiveDocument.Frames.Count
        For Each iShp In .InlineShapes
            If i > Max Then Exit For
            With iShp
                If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
                    iShp.Select
                    Selection.Cut
                    ActiveDocument.Frames(i).Select
                    Selection.Paste
                    i = i + 1
                End If
            End With
        Next iShp
    End With
    Word.Application.ScreenUpdating = True
End Sub

在Word文档中插入图片

1 个答案: