丢了的蜡笔小新
1.如何用VB调用WORD文档,请高手进,谢谢~
知道，不过不能直接读取，因为微软没有公布加密方式，所以要调用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
'完成操作
我通过剪切板来获取文本，因为这样可以保留格式（本人独创）
如果直接获取也是可以的，不过格式全部丢失，所以我的方法会更好一点
2.vb 调用Word打开文档
引用CommonDialog和Microsoft Word 11.0 object Libary（其他版本也行，看机器情况）
Private Sub Command1_Click()
Dim DocPath As String
Dim wApp As New Word.Application
CommonDialog1.ShowOpen
DocPath = CommonDialog1.FileName
If DocPath = "" Then wApp.Documents.Close: Set wApp = Nothing
wApp.Documents.Open DocPath
wApp.Visible = True
End Sub
Private Sub Form_Load()
CommonDialog1.Filter = "Word文档 （*.dco）|*.doc"
CommonDialog1.DialogTitle = "选择要打开的文档"
CommonDialog1.CancelError = False
End Sub
3.如何用VB调用WORD文档,请高手进,谢谢~
知道，不过不能直接读取，因为微软没有公布加密方式，所以要调用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'完成操作我通过剪切板来获取文本，因为这样可以保留格式（本人独创）如果直接获取也是可以的，不过格式全部丢失，所以我的方法会更好一点。
4.VB怎样实现word文件调用
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最近技术状况评定"）
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
5.vb 调用word
这个可以在word的VBA里做啊，就是做个宏，当然最好是用excel的VBE做，因为毕竟是excel才是真正的电子表格软件，而且编写宏比较方便的。
另外，如果你一定要在VB里做也可以，打开VB，然后“工程”-“引用”，选择“microsoft word。”
这个选项，版本不一样就不一样。做程程序的时候，要先定义，如：dim wordapp as new word.applicationdim worddoc as new word.document其中wordapp,worddoc由你自己定，只要好记就行。
后面的每次调用都要用到的，这和cad,excel做二次开发都一样。
6.vb调用word
源代码在办公室电脑上明天上班贴给你 工程先引用word Dim objWord As ObjectConst CLASSOBJECT = "Word.Application"Set objWord = CreateObject(CLASSOBJECT)objWord.Visible = False '隐藏word界面Dim win As ObjectSet win = objWord.Documents.Add(App.Path & "\V-2.dot") '打开word模版把记录替换到模版中Set MyTable = win.Tables(1) '将数据写入word 表中MyTable.Cell(5, 4) = Adodc1.Recordset.Fields("l1") & ""MyTable.Cell(6, 4) = Adodc1.Recordset.Fields("l2") & ""MyTable.Cell(7, 4) = Adodc1.Recordset.Fields("l3") & ""MyTable.Cell(8, 4) = Adodc1.Recordset.Fields("l16") & ""MyTable.Cell(9, 4) = Adodc1.Recordset.Fields("l17") & ""objWord.Visible = True objWord.PrintPreview = True Do DoEvents '判断是否在预览状态 If Not objWord.PrintPreview Then objWord.ActiveDocument.Close (0) '不保存直接退出 'objword.Quit '用它可以直接退出word 但是我用的时候总是卡后来干脆不用了手运关闭word Exit Do End If Loop 我也是刚学还不精希望对你有帮助。
转载请注明出处51数据库 » vb6调用固定格式word
