vb6调用固定格式word

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