[已解决][vba]在word的文本框中写入指定文本

king8462

昨天的帖子：
http://www.autoitx.com/thread-53090-1-1.html

代码在office word下运行正常，但在wps里就没反应!

所以我在doc文档中建立了一个文本框，想通过vba直接写入需要的变量。但水平所限，不会修改代码，希望高手帮助！

vba 宏如下：

Sub Macro7()
    ActiveDocument.Shapes("Text Box 7").Select
    Selection.TypeText Text:="无"
End Sub

king8462

@kevinch

kevinch在吗，搜了好多帖子，只有你能搞定吧

kevinch

thisdocument.Shapes(1).TextFrame.TextRange.Text="test"
这样试一下，shapes里可以通过序号或名字引用指定shape对象

king8462

thisdocument.Shapes(1).TextFrame.TextRange.Text="test"
这样试一下，shapes里可以通过序号或名字引用指 ...
kevinch 发表于 2016-8-26 21:11

怎么激活该文本框啊？要不然没法编辑啊

include <Word.au3>
Global $word = ObjCreate("word.application")
$word.visible = True
$Doc =  $Word.documents.open (@DesktopDir & "\0001.doc")
Local $context = "1zyhao"
Local $newcontext = "2016"

$Doc.ActiveWindow.thisdocument.Shapes(1)

$Doc.thisdocument.Shapes(1).TextFrame.TextRange.Text=$newcontext

king8462

@kevinch 请再给个提示啊

king8462

@kevinch  帮忙修改下代码，谢谢

kevinch

不需要激活，直接来
$doc.Shapes(1).TextFrame.TextRange.Text=$newcontext

king8462

不需要激活，直接来
$doc.Shapes(1).TextFrame.TextRange.Text=$newcontext
kevinch 发表于 2016-8-30 19:24

谢谢老师，问题解决了！

zghwelcome

回复 3# kevinch

请教K大个word的问题，谢谢！
当前目录有 1.jpg 2.jpg 3.jpg ... 10.jpg  10张图片，
请问如何建立一个新的word文档，把图片按顺序插入到 word的 1-10页，并且在每个图片后面加入一段文字，如下：
第一页内容:
[1.jpg]
这是图片1

第2页内容:
[2.jpg]
这是图片2

...

第10页内容:
[10.jpg]
这是图片10