Question

VB中怎么插入Word文本

要详细，另如果我把Word文件放在我的U盘内，到其他电脑上可能显示E也可能是I甚至是J,我的代码应该怎么写呢
哟麻烦仁兄说得详细点~~
我不太会~
菜~~~

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
这个是另存为和退出

Answer 2

word中选中文本，按组合键ctrl+c，VB中点到插入位置，按组合键ctrl+v

Answer 3

将Word中的指定位置设置书签，在VB中给指定书签复制

sub Test()

DIm strfilename as string
Dim strbookmarkname as string
dim strInfo as string

strfilename="C:\test.doc"
strbookmarkname="bkmTest"
strInfo="Test Bookmark OK"

set objDoc=CreateObject("word.application")
set objDoc=objApp.documents.open(strfilename)
objDoc.Bookmarks(strbookmarkname).range.text=strInfo

objDoc.save

objDoc.close 1

objApp.quit 0

end sub

就可以了

Answer 4

引用COM控件或者使用Richtextbox 控件