vb操作word
引用Word对象、然后在VB端生成Word的Application对象。
Application对象可以显示或隐藏都可以。
Application下的Documents对象可操作Word文档。
application.Documents.Open 可以打开文档。
生成Application后就与VBA中的Word.application对象一样使用就OK了。
如果想了解Word的Application对象或Document对象或Range等对象你可以打开Word、然后在Word界面按下ALT+F11然后就可以进入VBA编辑器、可以看作是VB的一个子集。
然后在左边工程栏里加模块、加窗体。
。
。
写代码的时候按F1就可以得到帮助。
如何用VB调用WORD文档,请高手进,谢谢~!~
知道,不过不能直接读取,因为微软没有公布加密方式,所以要调用WORD来读取,然后获取它先在工程的引用里面加上Microsoft Word 11.0 Object LibraryDim 剪切板文本Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象Dim Word文档 As Word.DocumentDim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象Word文字处理系统界面.Visible = False '不显示word.application,即word文字处理系统界面Set Word文档 = Word文字处理系统界面.Documents.Open(文件路径)Set Word文档文本 = Word文字处理系统界面.SelectionWord文档文本.WholeStoryWord文档文本.Copy剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中Text1.Text = 剪切板文本'Clipboard.SetData TempWord文档.Close '关闭文档Word文字处理系统界面.Application.QuitSet Word文字处理系统界面 = Nothing '清空变量Set Word文档文本 = Nothing'完成操作我通过剪切板来获取文本,因为这样可以保留格式(本人独创)如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点
vb做word的模拟程序,怎样实现
PrivateSubCommand1_Click()DimssAsStringDimWordAppAsObjectss="用VB创建的word文本"'新建WORD文件名SetWordApp=CreateObject("Word.Application")WordApp.Application.Visible=1'控制word可见或不可见SetmyDoc=WordApp.Documents.Add()WithmyDoc.Content.Font.Name="Arial".SaveAsFileName:="D:\"&ss&".doc".Content.InsertAfterText:="冷却塔报告"'插入文字,请使用这种格式.Shapes.AddPictureFileName:="D:\a.jpg"'插入图片,请使用这种格式,路径自己写.SaveEndWithEndSub
VB中如何生成一个WORD文档(有图)
Imports Word'打开Dim mWordapp As Word.Application 'word 应用程序Dim mobjDoc As Word.Document 'word 文档Dim fullFileName as string '文件路径mWordapp = CreateObject(”Word.Application”)mobjDoc = mWordapp.Documents.Add(FullFileName)'关闭Dim missing As Object = System.Reflection.Missing.ValuemWordapp.Application.Quit()If Not mobjDoc Is Nothing Then'垃圾回收System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)mobjDoc = NothingEnd IfIf Not mWordapp Is Nothing ThenSystem.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)mWordapp = NothingEnd If'真正释放word进程GC.Collect()学习更多教程,请浏览: VB.NET入门教程 雄网
vb word打开 保存的问题
Option ExplicitDim ap As Word.Application, s As String, doc As DocumentPrivate Sub Command1_Click()Set ap = CreateObject("word.application")Set doc = ap.Documents.Open("d:\1.doc")s = doc.Content.TextPrint sEnd SubPrivate Sub Form_Unload(Cancel As Integer)doc.Closeap.QuitSet doc = NothingSet ap = NothingEnd Sub
vb 打开word 保存后 第二次打开出现问题
第一次启动了word服务,没有关闭:这些:mydocument.closeset mydocument= nothingset myword =nothing改成:mydocument.Closemyword.Documents.Savemyword.QuitSet mydocument = NothingSet myword = Nothing再把Selection改成myword.Selection,ActiveDocument也要改成mydocument,你上面mydocument要指定,ChangeFileOpenDirectory不要用!Dim myword As New word.ApplicationDim mydocument As word.Document'On Error Resume NextSet myword = CreateObject("word.application")Set mydocument = myword.Documents.Open(App.Path &; "\模板.doc")myword.Visible = Truemyword.Selection.MoveRight Unit:=wdCell' myword.Selection.TypeText Text:=Text5.Textmyword.Selection.MoveRight Unit:=wdCell' myword.Selection.TypeText Text:=Text6.Text'ChangeFileOpenDirectory "C:\Documents and Settings\Administrator\桌面\"mydocument.SaveAs FileName:="C:\Documents and Settings\Administrator\桌面\文电.doc", FileFormat:=wdFormatDocument, _LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _Falsemydocument.Closemyword.Documents.Savemyword.QuitSet mydocument = NothingSet myword = NothingShell "cmd /c start """" " & """C:\Documents and Settings\Administrator\桌面\文电.doc""", vbHide
转载请注明出处51数据库 » word.application vb