怎么用au3设置word中艺术字的文字环绕方式[已解决]
本帖最后由 1007236046 于 2013-7-10 12:24 编辑$objWord = ObjCreate("Word.Application")
$objWord.Visible = 1
$objDoc = $objWord.Documents.add()
$left=$objDoc.application.Selection.Information(5)
$top=$objDoc.application.Selection.Information(6)
$objDoc.Shapes.AddTextEffect(0, "秋天", "宋体", "36", 0, 0, $left, $top)
这样插入的艺术字是“浮于文字上方”的，我想把他改成“嵌入型”的文字环绕方式，
录制宏的时候不能改艺术字的环绕方式
终于解决了，最后加一句$objDoc.Shapes(1).ConvertToInlineShape $objWord = ObjCreate("Word.Application")
$objWord.Visible = 1
$objDoc = $objWord.Documents.add()
$left=$objDoc.application.Selection.Information(5)
$top=$objDoc.application.Selection.Information(6)
$objDoc.Shapes.AddTextEffect(0, "秋天", "宋体", "36", 0, 0, $left, $top).select
With $objWord.selection
.shaperange.WrapFormat.Type=0
.endkey
EndWith这样试下 可以设置环绕方式了，但是不能设置为嵌入型环绕方式，参数0-7都用了
网上查了参数;7=嵌入 3=上方 0=四周 2=穿越 1=紧密 4=上下 5=下方6=上方，0-6都能设置正确的环绕方式，但是7设置的是浮于上方而不是嵌入型
直接在word里用宏也是一样的结果 回复 2# kevinch
with $oExcel.activesheet
.exportasfixedformat(0,@scriptdir&"\2x.pdf")
endwith
word有和EXCEL类似的方法转换成PDF吗？ 回复 5# ap112
假设$doc是word文档句柄
$doc.exportasfixedformat("pdf文件全路径名",17)
这样试下 回复 6# kevinch
回复 8# ap112
你用consolewrite(objname($oWord))显示看下$oWord是application还是document，exportasfixedformat方法只能由document来使用 回复 9# kevinch
大师，这方面不是很懂。搞不明白。打印出来是0 回复 10# ap112
没有找到对象
试下下面的代码$oWord=objget(@scriptdir&"\ceshi.docx")
$oWord.exportasfixedformat(@scriptdir&"\2d.pdf",17)
$oWord.close 回复 11# kevinch
真的谢谢您，大师。你在我的AU3学习的路上帮了我很多，谢谢。顺便还问一个问题：AU3可以操作word，excel等转化为图片。尝试了很多方法，都不能成功。 回复 12# ap112
方法是有的，不过你得具体到具体问题，最好举例出来 回复 13# kevinch
1、现在一个文件夹下有很多word和excel，在您的帮助下，我可以把它们分成两个文件夹，并把每个文档都转成PDF并用原文件名称命名。
2、我想把这些word和excel转成图片，因为每个文档可能转出很多张照片，把这些照片放到以自己本身名称命名的文件夹下。或者一个文档（有文字区域）转成一张图片，并用原文件名命名。
针对第二个问题，因为一已经解决，所以可以考虑PDF转图片 回复 14# ap112
推荐你个软件，pdffly，可以快速把pdf转换成图片，注意转之前设置分辨率 回复 15# kevinch
这方面软件是很多，使用其他语言C#等都可以很好地实现PDF转图片，我现在想使用au3实现。
页:
[1]
2