怎么用au3设置word中艺术字的文字环绕方式[已解决]

1007236046 · 发表于 2013-4-14 12:35:47

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

kevinch · 发表于 2013-4-14 19:24:08

$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

这样试下

1007236046 · 发表于 2013-4-14 22:07:00

可以设置环绕方式了，但是不能设置为嵌入型环绕方式，参数0-7都用了
网上查了参数;7=嵌入 3=上方 0=四周 2=穿越 1=紧密 4=上下 5=下方 6=上方，0-6都能设置正确的环绕方式，但是7设置的是浮于上方而不是嵌入型
直接在word里用宏也是一样的结果

ap112 · 发表于 2014-10-29 14:10:48

回复 2# kevinch

with $oExcel.activesheet
.exportasfixedformat(0,@scriptdir&"\2x.pdf")
endwith

word有和EXCEL类似的方法转换成PDF吗？

kevinch · 发表于 2014-10-29 21:31:08

回复 5# ap112
假设$doc是word文档句柄
$doc.exportasfixedformat("pdf文件全路径名",17)
这样试下

ap112 · 发表于 2014-10-30 10:09:04

ap112 · 发表于 2014-10-30 10:10:02

回复 6# kevinch

kevinch · 发表于 2014-10-30 12:41:13

回复 8# ap112
你用consolewrite(objname($oWord))显示看下$oWord是application还是document，exportasfixedformat方法只能由document来使用

ap112 · 发表于 2014-10-30 13:08:02

回复 9# kevinch

大师，这方面不是很懂。搞不明白。打印出来是0

kevinch · 发表于 2014-10-30 20:36:21

回复 10# ap112
没有找到对象
试下下面的代码

$oWord=objget(@scriptdir&"\ceshi.docx")
$oWord.exportasfixedformat(@scriptdir&"\2d.pdf",17)
$oWord.close

ap112 · 发表于 2014-10-31 08:46:15

回复 11# kevinch

真的谢谢您，大师。你在我的AU3学习的路上帮了我很多，谢谢。顺便还问一个问题：AU3可以操作word，excel等转化为图片。尝试了很多方法，都不能成功。

kevinch · 发表于 2014-10-31 11:08:53

回复 12# ap112
方法是有的，不过你得具体到具体问题，最好举例出来

ap112 · 发表于 2014-10-31 14:43:15

回复 13# kevinch

   1、现在一个文件夹下有很多word和excel，在您的帮助下，我可以把它们分成两个文件夹，并把每个文档都转成PDF并用原文件名称命名。
   2、我想把这些word和excel转成图片，因为每个文档可能转出很多张照片，把这些照片放到以自己本身名称命名的文件夹下。或者一个文档（有文字区域）转成一张图片，并用原文件名命名。
   针对第二个问题，因为一已经解决，所以可以考虑PDF转图片

kevinch · 发表于 2014-10-31 16:08:50

回复 14# ap112
推荐你个软件，pdffly，可以快速把pdf转换成图片，注意转之前设置分辨率

ap112 · 发表于 2014-11-2 11:23:20

回复 15# kevinch

这方面软件是很多，使用其他语言C#等都可以很好地实现PDF转图片，我现在想使用au3实现。

		自动登录	找回密码
密码			加入

[AU3基础] 怎么用au3设置word中艺术字的文字环绕方式[已解决]

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源