Question

VB在Word文本框中怎么插入内容

Answer 1

先要引用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
具体可以看这个帖子
http://bbs.csdn.net/topics/340075842