源代码在办公室电脑上
明天上班贴给你
工程先引用word
Dim objWord As Object
Const CLASSOBJECT = "Word.Application"
Set objWord = CreateObject(CLASSOBJECT)
objWord.Visible = False ’隐藏word界面
Dim win As Object
Set 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
我也是刚学还不精
希望对你有帮助来自:求助得到的回答
如何用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
'完成操作
我通过剪切板来获取文本,因为这样可以保留格式(本人独创)
如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点
VB6 如何扫描内存中已经打开的excel和word文档并自动将其保存?
一、上述代码都不要,只要复制代码即可:
Sub AutoSave()
Dim xlApp
Dim xlBook
Dim i As Integer
On Error Resume Next
Err.Clear
Set xlApp = GetObject(, "Excel.Application") '
If Err.Number = 0 Then
For i = 1 To xlApp.workbooks.Count
Set xlBook = xlApp.workbooks(i) '装入已经存在的EXCEL文件
If Not xlBook.saved Then xlBook.saved = True '自动保存
DoEvents
Next
End If
Err.Clear
Set xlApp = GetObject(, "Word.Application")
If Err.Number = 0 Then
For i = 1 To xlApp.documents.Count
Set xlBook = xlApp.documents(i) '装入已经存在的Word文件
If Not xlBook.saved Then xlBook.saved = True '自动保存
DoEvents
Next
End If
Set xlBook = Nothing '释放对象
Set xlApp = Nothing '释放对象
End Sub
二、调用很简单,只要在需要时写入
AutoSave 语句就行。
vb6编程: 有多个word文件,设计用户登陆窗体按权限查看文件,怎样处理这多个word文件
使用数据库
建个数据库,创建二个数据表
文档表保存所以的word文档
权限表:保存用户权限
连接数据库后,根据权限表中的用户权限决定是否从文档表中读取word文档并保存在硬盘上,然后打开这个文档
数据库可以用access
哪位大神会vb调用word程序,就是把数字水准数据用vb调控填到word的观测记录手簿里。
工程先引用word
Dim objWord As Object
Const CLASSOBJECT = "Word.Application"
Set objWord = CreateObject(CLASSOBJECT)
objWord.Visible = False ’隐藏word界面
Dim win As Object
Set 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
这些数据还需要计算的,比如那个高差中数,每页的word表格只能是九站,也就是说需要让word自动生成十几页 ,然后调用模板,运行程序,生成手簿
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
像vb调用word一样,vc如何调用其它应用程序并且达到完全控制那个程序?
COM编程.这个已经很完整了呀. 以vc6.0为例新建MFC工程会吧. 先新建MFC工程(选对话框),双击确定(OK),然后把第四步的内容复制到函数里面.要是没有基础的话,还是先学基础吧,这种事急不来的.就是我给你写好了一个,你还是不知道怎样写别的. 1\在类向导中Add Class-->from a type library 在打开中选择word安装目录下面的msword.olb 点打开,在其中选择你要的类.比如: WordApplication;(在对话框中可能是_Application在这里被的重命名了,下同!) WordDocuments; WordDocument; WordTables; WordTable; WordCell; WordRange; WordColumns; WordRows; 在头文件中输入MSWORD.h(默认) 2\在BOOL C***App::InitInstance()中加入如下代码 if (CoInitialize(NULL)!=0) { AfxMessageBox("初始化COM支持库失败,你将不能导出数据到Excel表!"); } 3\使用的时候包含如下文件 #include "msword.h" #include "comdef.h" 4\实现代码 WordApplication app; WordDocuments docs; WordDocument doc; WordTables WordTables; WordTable WordTable; WordCell WordCell; WordRange WordRange; WordColumns WordCols; WordRows WordRows; if(!app.CreateDispatch("Word.Application")) { MessageBox("创建Word服务失败!",_T("提示"),MB_ICONERROR); return; } docs.AttachDispatch(app.GetDocuments()); app.SetVisible(true); //打开文件 IDispatch *dispatch=docs.Open(&_variant_t(strFileName),&vtMissing,&vtMissing,&vtMissing, &vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing, &vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing); if(dispatch) { doc.AttachDispatch(dispatch); } else {//出错了 CString szErr=""; szErr.Format("打开文件出错,请查看文件是否存在!"); ::AfxMessageBox(szErr); //退出程序,释放对象 app.Quit(&vtMissing,&vtMissing,&vtMissing); docs.ReleaseDispatch(); app.ReleaseDispatch(); return; } dispatch=doc.GetTables(); if(dispatch) { WordTables.AttachDispatch(dispatch); } else {//出错了 CString szErr=""; szErr.Format("取得表格集合出错!"); ::AfxMessageBox(szErr); //退出程序,释放对象 app.Quit(&vtMissing,&vtMissing,&vtMissing); docs.ReleaseDispatch(); app.ReleaseDispatch(); doc.ReleaseDispatch(); return; } WordTables.Add(....); app.Quit(&vtMissing,&vtMissing,&vtMissing); doc.ReleaseDispatch(); docs.ReleaseDispatch(); app.ReleaseDispatch();就这么多了,希望采纳
更多建站问题,可搜一下“飘仙论坛”
转载请注明出处51数据库 » vb6调用固定格式word vb调用word