- 1、本文档共46页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vb操作WORD大全
很多人都知道,用vb操作excel的表格非常简单,但是偏偏项目中碰到了VB操作word表格的部分,google、baidu搜爆了,都没有找到我需要的东西。到是搜索到了很多问这个问题的记录。没办法,索性只有自己去尝试了。下面把一些代码发上来,给需要的朋友一点提示。????????? 打开一个已经存在的wrod文件(这个文件包含了表格)
Dim WordAppDim WordSet WordApp = CreateObject(Word.Application)WordApp.Visible = TrueSet Word = WordApp.Documents.Open(c:\record.dot)
?????????知道了就很简单了,下面是选定某一个表格的一个单元格,并修改其内容
Word.Tables(1).cell(1, 2)=内容
?????????VBA中的这些数组元素下标都是从1开始的,比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells(0,0),WORD的表格也是这样,不信自己试一下就知道了。所以上面那句话的意思就是对整个word文档中的第一个表格的第一行第二列的内容改变为“内容”。很简单吧?网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。试一下就发现这2种都不对。????????? 插入图片其实也很简单,代码如下:说到这,肯定又有人会问怎么在一个word里插入一个表格。其实很简单:
如果你的程序里涉及到合并及拆分单元格,那么你可能试一下这段代码:
dim Table set Table = wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRows:=27, NumColumns _ :=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed)
Set mySelection = wdApp.Documents.Application.Selection mySelection.Cells.Borders(-7).LineStyle = 1 选中表格的第2行第3列 table.Cell(2, 3).Select 向下移动6格,第1个参数和第3个是常数 Call wdBook.Application.Selection.MoveDown(5, 6, 1) 合并 wdBook.Application.Selection.Cells.Merge 拆分成7行2列 Call wdBook.Application.Selection.Cells.Split(7, 2, True)
?????如果大家碰到了更复杂的程序,用程序生成起来比较麻烦,那么你就可以用模板来实现了?你可以先用word做一个模板,把表格什么的全都先写好,然后保存成模板文件。然后你再用程序加载这个模板,然后往模板里填写数据。这样难度要低一些。不过具体情况具体分析。word这些集合的下标都是从1开始,然后只要找到表格那个集合,然后选取第一个表格就是要操作的表格了(假设你想操作的表格是模板中的第一个表格)。 代码如下:
dim table
set table=wdApp.ActiveDocument.Tables(1)
===================================================
1、对其WORD内容设置字体样式,以及在WORD中插入表格,以及表格单元格融合与填充.
Option ExplicitPrivate Sub Command1_Click()Dim filename As StringCD.ShowSavefilename = CD.filenameOutWord filenameMsgBox OKEnd Sub
Private Function OutWord(ByVal filePath As String) As BooleanDim newDoc As Word.DocumentSet newDoc = New Word.Document
With newDoc.Paragraphs(.Paragraphs.Count).Range.Font.Name = 宋体.Paragraphs(.Paragraphs.Count).Range.Font.Size = 10.5
您可能关注的文档
最近下载
- 教育、科技、人才一体化与新质生产力发展.pptx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(研优卷).docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 《大棚番茄基质槽式栽培技术规程》.docx
- 立体车库 毕业论文外文翻译.docx VIP
- 教育、科技、人才一体推进新质生产力发展.docx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(考试直接用).docx VIP
- 社交礼仪教程(第7版 微课版)课件 第五章 餐饮礼仪.pptx
- 2025清华:DeepSeek从入门到精通.pdf
文档评论(0)