如何用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文件
方法很简单,不需要使用shell函数,剪贴簿或是api也可以解决,要将 access 中的变数传到 word中,有两种方法(可能有很多吧!!但是我只知道这两种),第一是利用word内建的合并列印功能,另外一种是使用word中的"插入(i)/功能变数(F)"然后利用一个"DocVariable"功能变数,这样就可以轻松在VBA中对word文件中的指定的位置加入经程式处理过的文字....当然这两种方法,都需要程式设计者先设计一个word文件,使这个word文件一开启就具有已有己经事先安排好的合并列印栏位或是变数,让使用者只要在access中按下一个commandbutton就可以顺利看到自己所需的报表或是你所说的考卷出现在word中....
vb操作word文档问题
怎么用vb编程操作word绘制表格的边框操作步骤:1、单击开始----查找按钮(或按Ctrl + F组合键);2、弹出查找对话框,在查找内容处输入需要查找的数字,在以下项中查找处选择主文档,单击关闭按钮;3、此时文档中所的查找的数字都被选中。
如何用 VB 向word里 写公式!!!VB WORD 公式,求高手帮忙,多...
1、先引用microsoft word 11.0 object library2、代码,下面是一个例子,在新建word文档“test.doc”并写入“实验数据表”这5个字,字体为黑体,大小为21.5,居中显示。
公式编辑和这个类似。
Set wrdapp = New Word.ApplicationWith wrdappDocuments.Add DocumentType:=wdNewBlankDocument.ActiveDocument.SaveAs ("d:\test.doc").Documents.Open ("d:\test.doc")'写标题Selection.Font.Name = "黑体"Selection.Font.Size = 21.5Selection.TypeText Text:="实验数据表"Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中.QuitEnd With---------------你可以参考下面看看http://topic.csdn.net/u/20081017/19/a0915409-3561-4379-949c-cda983b31f58.HTML
如何把VB中TEXT数据输出到word模板中的指定位置
展开全部 要把下列内容复制到写字板中,另存为SetWord.cls文件,然后在把它添加到工程中,就可以使用了。
VERSION 1.0 CLASSBEGINMultiUse = -1 'TruePersistable = 0 'NotPersistableDataBindingBehavior = 0 'vbNoneDataSourceBehavior = 0 'vbNoneMTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "SetWord"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalsePrivate mywdapp As Word.ApplicationPrivate mysel As Object'属性值的模块变量Private C_TemplateDoc As StringPrivate C_newDoc As StringPrivate C_PicFile As StringPrivate C_ErrMsg As IntegerPublic Event HaveError()Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性"'***************************************************************'ErrMsg代码:1-word没有安装 2 - 缺少参数 3 - 没权限写文件' 4 - 文件不存在''***************************************************************Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找所有FindStr,并替换为PicFile图像' 替换次数由time参数确定,为0时,替换所有'********************************************************************************If Len(C_PicFile) = 0 ThenC_ErrMsg = 2Exit FunctionEnd IfDim i As IntegerDim findtxt As Booleanmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withmysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)If Not findtxt ThenReplacePic = 0Exit FunctionEnd Ifi = 1Do While findtxtmysel.InlineShapes.AddPicture FileName:=C_PicFileIf i = Time Then Exit Doi = i + 1mysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)LoopReplacePic = iEnd FunctionPublic Function FindThis(FindStr As String) As BooleanAttribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True"
vb初学者的问题 怎么用vb打开word?就是设置按钮 点击之后打开某目...
打开前,先把 模板文件复制一份为临时文件名。
然后打开这个文件,然后输出内容。
最后再改名为 最终的文件名参考:Const TMPFILE = "~tmp.doc"If Dir(App.Path & "\" & TMPFILE) <> "" ThenKill TMPFILEEnd IfFileCopy App.Path & "\" &; 模板文件, App.Path & "\" & TMPFILE '目标位置可以是任意盘符任意目录,要求目录存在'对 TMPFILE 打开和处理Name App.Path & "\" & TMPFILE As "输出报告1.doc"
转载请注明出处51数据库 » 如何使用vb word模板