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

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

本帖最后由 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

我这里测试，一个是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基础] au3怎样判断word中图片浮于文字上方？

相关帖子