如何使用VB编辑Word文件？-vb调用word,vb中能调用Word编辑吗

在VB设计状态的菜单栏里面，依次点击“工程”——“引用”，知找到Microsoft word那一项会有版本号，我现在用道的2010，是14.0的版本，你的可能会不一样。打勾，然后你的工程里面就可以使用版word里面的对象了，具体的东西太多了，也不好讲，然后你可以在百度文权库里面下载一些关于Office VBA的相关文章，看下具体操作，试着调用几次应该就会了

1.安装百word
2.在VB开发环境里引入Office Word对象度
3.在按钮中用CreateObject或New来产生一个word对象
4.调用该对象，直接实现问替换等操作
5.如果不知答道用什么语句，可以用word里的宏编辑器记录所回进行的操作，把生成的vbA代码拷贝到答vb环境中即可
知道,不过不能直接读取,因为微软没有公布加密方式,所以要调e68a84e8a2ade799bee5baa6e997aee7ad94361用WORD来读取,然后获取它

先在工程的引用里面加上Microsoft Word 11.0 Object Library

Dim 剪切板文本
Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象
Dim Word文档 As Word.Document
Dim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档

Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象

Word文字处理系统界面.Visible = False '不显示word.application，即word文字处理系统界面

Set Word文档 = Word文字处理系统界面.Documents.Open(文件路径)

Set Word文档文本 = Word文字处理系统界面.Selection
Word文档文本.WholeStory

Word文档文本.Copy
剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中

Text1.Text = 剪切板文本

'Clipboard.SetData Temp

Word文档.Close '关闭文档
Word文字处理系统界面.Application.Quit
Set Word文字处理系统界面 = Nothing '清空变量
Set Word文档文本 = Nothing
'完成操作

我通过剪切板来获取文本,因为这样可以保留格式(本人独创)
如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点

VB.NET写 word文件代码：
Dim wordApp As New Word.Application
Dim objSelection As Word.Selection
Dim Title As String = "K388+400常胜沟大桥"
wordApp.Documents.Add()
oDocument = wordApp.ActiveDocument
objSelection = wordApp.Selection

wordApp.Selection.TypeText(Title)
objSelection.TypeParagraph()
wordApp.Selection.TypeText("一、桥梁基本状况卡片")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别，B技术结构数据")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别。B技术结构数据。C档案资料（全、不全、或无）。D最近e79fa5e98193e4b893e5b19e333技术状况评定")

objSelection.InsertBreak() '插入分页符，相当于2个字符
objSelection.TypeText("E修建工程记录")

SetRange(1)
With wordApp.Selection
.Font.Size = 18 '字体（小二）
.ParagraphFormat.Alignment = 1 '水平居中
.Font.Bold = True
End With

SetRange(2)
With wordApp.Selection
.Font.Size = 14 '字体（四）
.Font.Bold = True
.Font.Name = "华文琥珀"
End With

SetRange(25, 44, True)
With wordApp.Selection
.Font.Size = 9 '字体（小五）
.Font.Bold = True
.Font.Italic = True
End With

SetRange(4, 2)
With wordApp.Selection
.Font.Size = 9 '字体（小五）
.Font.Bold = True
End With

'文件保存
oDocument.SaveAs("d:\" & Title & ".doc")
wordApp.Visible = True