word 图片居中

Sub PicCenter()
    Dim myS As InlineShape
    Application.ScreenUpdating = False
    For Each myS in ActiveDocument.InlineShapes
        If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then
            myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
        End If
    Next
    Application.ScreenUpdating = True
End Sub