[已解决][vba]在word的文本框中写入指定文本
本帖最后由 king8462 于 2016-8-30 20:33 编辑昨天的帖子：
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 @kevinch
kevinch在吗，搜了好多帖子，只有你能搞定吧 thisdocument.Shapes(1).TextFrame.TextRange.Text="test"
这样试一下，shapes里可以通过序号或名字引用指定shape对象 本帖最后由 king8462 于 2016-8-26 22:31 编辑
thisdocument.Shapes(1).TextFrame.TextRange.Text="test"
这样试一下，shapes里可以通过序号或名字引用指 ...
kevinch 发表于 2016-8-26 21:11 http://www.autoitx.com/images/common/back.gif
怎么激活该文本框啊？要不然没法编辑啊
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 @kevinch 请再给个提示啊 @kevinch帮忙修改下代码，谢谢 不需要激活，直接来
$doc.Shapes(1).TextFrame.TextRange.Text=$newcontext 不需要激活，直接来
$doc.Shapes(1).TextFrame.TextRange.Text=$newcontext
kevinch 发表于 2016-8-30 19:24 http://www.autoitx.com/images/common/back.gif
谢谢老师，问题解决了！ 回复 3# kevinch
请教K大个word的问题，谢谢！
当前目录有 1.jpg 2.jpg 3.jpg ... 10.jpg10张图片，
请问如何建立一个新的word文档，把图片按顺序插入到 word的 1-10页，并且在每个图片后面加入一段文字，如下：
第一页内容:
这是图片1
第2页内容:
这是图片2
...
第10页内容:
这是图片10
页:
[1]