请高人来看下我的代码

a5658805

Sub 自動排列圖片()
    Dim 原始圖片 As InlineShape
    Dim n As Integer
    If ActiveDocument.InlineShapes.Count >= 1 Then
        For Each  原始圖片 In ActiveDocument.InlineShapes
             原始圖片.ConvertToShape
        Next
   End If
     For n = 1 To 4
        With ActiveDocument.Shapes(n)
            .LockAspectRatio = msoFalse
            .Height = CentimetersToPoints(8.7)
            .Width = CentimetersToPoints(13.1)
            If n Mod 2 = 1 Then
               .Left = 0
               .Top = (n - 1) * 128
             Else
                .Left = 380
                .Top = (n - 2) * 128
            End If
        End With
     Next
End Sub

這個代碼主要是為了插入四張圖片后,自動排列.
現在有個問題,這段代碼只能處理第一頁的圖片,如果選中第二頁,再插入四張圖片,運行代碼后,沒有反應,請高人指點.非常感謝~
另外,吐槽下,WORD VBA的資料太少了,完全是后媽生的.

sqhsqhli

没细看代码，原因是不是第一页已经有四张图片，第二页再放四张， For n = 1 To 4 就又回到第一页了，5到8怎么样