如何在单词中创建图像放置宏？

Question

我想在单词中创建一个宏，每页放4个图像。图像放在每个角落一个，它们都包裹在文本的前面。图像从我的桌面（mac）复制到word文档，默认包装在文本前面，因此它们都在一页上。
这就是我到目前为止所做的：

Sub ImageResize()
'
' ImageResize Macro
' Resizes all images to a height of approx 99px
'
    Dim i As Long
    With ActiveDocument
        For i = 1 To .Shapes.Count
            With .Shapes(i)
                .Height = 300
            End With
        Next i
    End With
End Sub
Sub ImagePos()
'
' ImagePos Macro
' Positions 4 images per page.
  Dim i As Long
    With ActiveDocument
        For i = 1 To .Shapes.Count
            With .Shapes(i)
                If i Mod 2 = 1 Then
                    .Top = 400
                Else
                    .Top = 0
                End If

                If i Mod 4 = 3 Or i Mod 4 = 0 Then
                    .Left = 250
                Else
                    .Left = 0
                End If

            End With

        Next i
    End With

End Sub

感谢任何帮助。
感谢