Question

用VB打开一个已存在的word文档并向其中插入指定文本

VB中有一个文本框，我想把文本框中的内容保存到一个word文档末尾去，怎么操作？

Answer 1

Dim oWord As Word.Application
Dim oDocument As Word.Document
Dim nRet As Integer
On Error GoTo ErrOpen
Set oWord = New Word.Application
' If FileName = "" Then
' Set oDocument = oWord.Documents.Add
' Else
Set oDocument = oWord.Documents.Open("e:\test1.doc")'要打开的文件名
' End If
oWord.Visible = True '如果不想看见WORD窗口，可以设为false
'将text插入到最后
oDocument.Paragraphs.Last.Range.InsertAfter Text1.Text

OpenDocument = 1
GoTo ExitOpen
ErrOpen:
OpenDocument = 0
ExitOpen:
oDocument.Save '保存文档
oWord.Quit '退出WORD

Set oDocument = Nothing
Set oWord = Nothing

Answer 2

打开已经存在的文件用OPEN不用说了吧.

把文本保存到WORD文档方法很简单.我来教你一个很好用的方法吧.

首先,打开WORD,在菜单:工具->宏->录制新宏.
这些操作完成了之后,你在WORD的操作都会被记录起来.并生成相应的代码..

然后,查看新录制的宠代码,把代码复制到VB里就可以直接用了..

想怎么操作就怎么操作..简单实用.