论坛 › 『 提问交流 』 › au3怎样判断word中图片浮于文字上方？

y1751 发表于 2013-1-11 18:02:25

au3怎样判断word中图片浮于文字上方？

本帖最后由 y1751 于 2016-1-3 20:44 编辑

本帖最后由 y1751 于 2013-1-11 17:33 编辑




au3怎样判断图片浮于文字上方？


vba中有人说：
ActiveDocument.Shapes(1).Select
    With Dialogs(wdDialogFormatDrawingObject)
      MsgBox CStr(.Wrap)
    End With
' 当衬于文字下方时， 其值为5
' 当浮于文字上方时， 其值为6


能改成AU3代码吗？


几年了没人解决。是想做word学生作业自动改卷用的

y1751 发表于 2013-1-11 19:01:33

回复 1# y1751


    是要判断在上方或者在下方

kevinch 发表于 2013-1-12 20:00:45

$doc=ObjGet("D:\test.doc")
MsgBox(0,"",$doc.shapes(1).wrapformat.type)3为在文字下方，5为在文字上方

y1751 发表于 2013-1-13 00:02:40

回复 3# kevinch


    上下浮动均为3，所以才求帮忙

谢谢了

kevinch 发表于 2013-1-13 09:59:40

回复kevinch


    上下浮动均为3，所以才求帮忙

谢谢了
y1751 发表于 2013-1-13 00:02 http://www.autoitx.com/images/common/back.gif
我这里测试，一个是3，一个是5，没出现楼主说的情况

kevinch 发表于 2013-1-13 10:02:49

最好显示一下，shapes.count，看一下有几个图形，是不是shapes(1)引用的是另一个图形，这样，当你调整的不是那个是时候值就不变了

y1751 发表于 2013-1-13 13:44:10

只有1张图片，确实只有显示 3

y1751 发表于 2013-1-13 13:44:13

只有1张图片，确实只有显示 3。word版本是2003

kevinch 发表于 2013-1-13 13:51:35

回复 8# y1751
那就不清楚了，我的是10，你再好好测试一下

查看完整版本: au3怎样判断word中图片浮于文字上方？