请高手看看，谢谢！！！

qdzbk

Sub 在Excel中运行VBA修改WORD文档中所有图片格式()
Dim oaa
Dim wdapp As Word.Application
Dim WordAppDos
Application.ScreenUpdating = False  '关闭屏幕更新
Filename = ThisWorkbook.Path & "\1.wps"      '目标文件路径及名称
Set wdapp = New Word.Application
With wdapp
     .Visible = False    'False True    不显示/显示
     Set WordAppDos = .Documents.Open(Filename)  '打开WORD文件
     For Each oaa In .Application.ActiveDocument.InlineShapes
           oaa.ZOrder 5    ' 出错提示：对象不支持该属性或方法
           1、怎样设置图片衬于文字下方
           2、怎样得到图片的名称
     Next
End With
Application.ScreenUpdating = True  '打开屏幕更新
End Sub

qdzbk

怎么怎么难啊？大师出来吧，谢谢啊！！！！！！！！！！！！！！！！！！

qdzbk

自己顶顶顶顶顶顶。。。。。。。。。。。。。。。。。。。