<em>VB</em>在<em>Word</em>文本框中怎么<e

先复制图形
再焦点到word
粘帖即可

先要引抄用Microsoft Word 12.0 Object，具体版本看你组的哪个office

Dim wApp As Word.Application
Dim wDoc As Word.Document

Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open(cDocName)

上面是定义和打开Word文件袭

wDoc.Shapes(i).TextFrame.TextRange.Text = Trim(Text5.Text)
这个是赋值
在那个打开的word文档中，我预先加入了许多文本框，上面是给zd其中某个文本框赋值

wDoc.SaveAs tmpName
wDoc.Close
wApp.Quit
Set wApp = Nothing
具体可以看这个帖子
http://bbs.csdn.net/topics/340075842
双击OLE控件，点“由文件创建”，然后选择你的World或Excel文档即可

首先引用Microsoft Word 12.0 Object，具体版本根据百你组的度哪个office版本

Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open(cDocName)

上面知是定义和打开Word文件
赋值：
wDoc.Shapes(i).TextFrame.TextRange.Text = Trim(Text5.Text)

在那个打开的道word文档中，预先加入多个文本框，上面是给内其中某个文本框赋值

wDoc.SaveAs tmpName
wDoc.Close
wApp.Quit
Set wApp = Nothing
这个是另容存为和退出