VB在Word文本框中如何插入内容
我用VB编了一个程序,程序里有一个按钮,还有一个文本框,想实现的是:
当一按这个按钮,就可以打开一个现成的Word文件,并且在这个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文档中,我预先加入了许多文本框,上面是给其中某个文本框赋值
wDoc.SaveAs tmpName
wDoc.Close
wApp.Quit
Set wApp = Nothing
这个是另存为和退出