請幫忙看下代碼,為什麽運行后,只會剪切奇數位的圖片,偶數位的完全沒有變化

a5658805

Sub Test()
     Dim i As Integer
     i = ActiveDocument.InlineShapes.Count

     Dim m As Integer

     For m = 1 To i
     ActiveDocument.InlineShapes(m).Select

     Selection.Cut
     Selection.GoTo wdGoToPage, wdGoToAbsolute, 2
     Selection.Paste

     Next

End Sub

198307jia

怎么说呢，因为你挪动了第一张图片以后，原本第二张图片就变成了第一张，然后你的i又循环到了2，所以它定位到的第2张其实是原来的第3张。明白吗