转自:http://blog.csdn.net/chenjl1031/article/details/8905354
1、在Word文档中插入表格,给单元格赋值,访问单元格内容,拆分及合并单元格
- '先引用Microsoft Word 11.0 Object Library
- Option Explicit
- Dim WordApp As Word.Application '创建Word应用程序
- Private Sub Command1_Click()
- Set WordApp = New Word.Application '实例化
- WordApp.Visible = True '显示 Office Word 界面
- '或者Application.Visible = True
- WordApp.DisplayAlerts = False '不提示保存对话框
- WordApp.Documents.Add '创建新的空白Word文档
- WordApp.Selection.EndKey unit:=wdStory '将光标移到文档末尾,在文本后面插入表格
- Selection.TypeText Text:="我的Word表格" '表格的标题名称
- Call WordApp.ActiveDocument.Tables.Add(WordApp.Application.Selection.Range, 10, 5, 1, 0) '插入一个10行5列的表格
- Selection.Tables(1).Columns.Width = 80 '定义表格的列宽
- '给单元格赋值
- WordApp.ActiveDocument.Tables(1).Cell(1, 1).Range.InsertAfter "序号"
- WordApp.ActiveDocument.Tables(1).Cell(1, 2).Range.InsertAfter "项目1"
- WordApp.ActiveDocument.Tables(1).Cell(1, 3).Range.InsertAfter "项目2"
- WordApp.ActiveDocument.Tables(1).Cell(1, 4).Range.InsertAfter "项目3"
- WordApp.ActiveDocument.Tables(1).Cell(1, 5).Range.InsertAfter "项目4"
- '合并单元格
- WordApp.ActiveDocument.Tables(1).Cell(2, 2).Select '选中表格的第2行第2列
- Call WordApp.Application.Selection.MoveDown(5, 3, 1) '向下移动3格
- WordApp.Application.Selection.Cells.Merge '合并4个格子
- '拆分单元格
- WordApp.ActiveDocument.Tables(1).Cell(10, 2).Select '选中表格的第10行第2列
- Call WordApp.Application.Selection.Cells.Split(7, 2, True) '拆分成7行2列
- '访问单元格内容
- Debug.Print WordApp.ActiveDocument.Tables(1).Cell(1, 1).Range.Text '第1行第1列的内容
- ActiveDocument.SaveAs "c:\MyWord.doc" '保存最后生成的word文档
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- On Error Resume Next
- WordApp.Quit
- Set WordApp = Nothing
- End Sub
生成的表格如下图所示:
2、在Word文档中插入和导出图片对象
- '先引用Microsoft Word 11.0 Object Library
- Option Explicit
- Dim WordApp As Word.Application '创建Word应用程序
- Private Sub Command1_Click()
- On Error GoTo Errhandler
- CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"
- CommonDialog1.FilterIndex = 1
- CommonDialog1.ShowOpen
- Set WordApp = New Word.Application '实例化
- WordApp.Documents.Open CommonDialog1.FileName '打开Word文件
- WordApp.Visible = True '显示 Office Word 界面
- '或者Application.Visible = True
- WordApp.DisplayAlerts = False '不提示保存对话框
- WordApp.Selection.EndKey Unit:=wdStory '将光标移到文档末尾,在文本后面插入图片对象
- Selection.TypeText Text:="我的图片" '图片的标题名称
- '插入图片对象
- Selection.InlineShapes.AddPicture FileName:="C:\CommandPicture.jpg", LinkToFile:=False, SaveWithDocument:=True
- Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
- Selection.InlineShapes(1).ConvertToShape.Select
- Selection.ShapeRange.Fill.Visible = msoFalse
- Selection.ShapeRange.Fill.Transparency = 0#
- Selection.ShapeRange.Line.Weight = 0.75
- Selection.ShapeRange.Line.DashStyle = msoLineSolid
- Selection.ShapeRange.Line.Style = msoLineSingle
- Selection.ShapeRange.Line.Transparency = 0#
- Selection.ShapeRange.Line.Visible = msoFalse
- Selection.ShapeRange.LockAspectRatio = msoTrue
- Selection.ShapeRange.Height = 361.4
- Selection.ShapeRange.Width = 481.6
- Selection.ShapeRange.PictureFormat.Brightness = 0.5
- Selection.ShapeRange.PictureFormat.Contrast = 0.5
- Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
- Selection.ShapeRange.PictureFormat.CropLeft = 0#
- Selection.ShapeRange.PictureFormat.CropRight = 0#
- Selection.ShapeRange.PictureFormat.CropTop = 0#
- Selection.ShapeRange.PictureFormat.CropBottom = 0#
- Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
- Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
- Selection.ShapeRange.Left = wdShapeCenter
- Selection.ShapeRange.Top = wdShapeCenter
- Selection.ShapeRange.LockAnchor = False
- Selection.ShapeRange.WrapFormat.AllowOverlap = True
- Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
- Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
- Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
- Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
- Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
- Selection.ShapeRange.WrapFormat.Type = 3
- Selection.ShapeRange.ZOrder msoSendBehindText '设置图片为衬托于文字下方
- '判断文档中是否存在图片对象
- If ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count > 0 Then
- '取得图片的2种方法
- '第1种方法:用下面命令将文件另存为网页格式的文件,文件夹“MyWord.files”将保存Word文档中所有的图片
- '这种方法对所有的Word版本均适用
- ActiveDocument.SaveAs "c:\MyWord.htm", wdFormatHTML '保存为网页格式
- '第2种方法:引用ADO对象库,将所有的图片保存在数据库中,然后可以一张一张地显示出来
- '另外:
- '如果Word文档是docx格式的,那可以按这个办法解决:
- '.docx 格式的文件本质上是一个ZIP压缩文件,.docx 格式文件的主要内容是保存为XML格式的,但文件并非直接保存于磁盘。
- '它是保存在一个ZIP文件中,然后取扩展名为.docx。我们只需要用解压软件比如:WinZIP、WinRAR或者7ZIP等软件进行解压就可以了。
- '方法有两种,一种是将.docx后缀名修改为.zip后缀名;另一个方法就是打开WinZIP然后,选择此文档即可。
- '图片资源文件都被保存在word\media文件夹中。
- Else
- Debug.Print "Word文档中不存在图片对象!"
- End If
- Errhandler:
- Exit Sub
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- On Error Resume Next
- WordApp.Quit
- Set WordApp = Nothing
- End Sub
3、统计Word文档页数、字数
- '先引用Microsoft Word 11.0 Object Library
- Option Explicit
- Dim WordApp As Word.Application '创建Word应用程序
- Private Sub Command1_Click()
- On Error GoTo Errhandler
- CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"
- CommonDialog1.FilterIndex = 1
- CommonDialog1.ShowOpen
- Set WordApp = New Word.Application '实例化
- WordApp.Documents.Open CommonDialog1.FileName '打开Word文件
- WordApp.Visible = False '不显示 Office Word 界面
- '或者Application.Visible = True
- 'WordApp.DisplayAlerts = False '不提示保存对话框
- Debug.Print WordApp.ActiveDocument.ComputeStatistics(Word.WdStatistic.wdStatisticPages) '页数
- Debug.Print WordApp.ActiveDocument.Characters.Count '字数
- Errhandler:
- Exit Sub
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- On Error Resume Next
- WordApp.Quit
- Set WordApp = Nothing
- End Sub
相关推荐
本文以Visual Basic编程语言为基础,以自动生成车轮外形试验报告为实例,结合文档的模板技术,巧妙运用Word软件的“域”和“宏”两个功能,应用VBA(Visual Basic for Applications)编程,实现了文本、表格、图形的...
'在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 Set atable = .ActiveDocument.Tables.Add(.Selection.Range, irecordcount ...
搜集网上的网友编写的VB串口通讯实例,word文档方式
VB6如何让程序只能启动一个实例程序,为word文档,有说明
用VB6打开,实例教学,并且有WORD文档资料加以说明.
VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*...
利用VB6.0开发了一个实用的Word2010插件,可以用于增强Word2010的文档打印格式检查、数学运算、函数图形显示等功能。详细介绍了Word2010插件的开发原理及其功能的实现原理。结合实例,给出了该插件功能实现的具体...
VB6批量打开Word文件,可浏览到包括有多个word文档的目录下,程序会自动找到这些Word文件并显示在右侧的列表中,若点击右下角的“打开”按钮,则一次性打开列表中的所有Word文档,自动调用Word。 运行环境:Windows...
当用户打开这些有子窗体的程序时,兴建的文档并不是以一个全新的窗体打开,而是内嵌在原有的父窗体中,我们称之为MDI窗体。 那么我们如何让我们的VB程序也实现MDI父子窗体呢?本资源包含的源程序代码将为您解答。...
本资料集摘编自MSDN Library for Visual Studio 2008,介绍了使用Visual Basic开发应用程序方面的知识和示例,是Visual Basic语言的概念性文档。主要内容介绍如下: 第一章 使用“Visual Basic编辑器” 包含有关...
第3章 主要讲述OLE自动化编程方法、一个完整的VB+OLE+Mapinfo程序以及用VB编写的直接写表程序。 第4章 以实例 的方式讲述MapX开发,实现了MapInfo主选单中的大部分功能,另外还讲述了MapX的自定义事件。 第5章 主要...
您可能感兴趣的文章:VB.net常用字符和日期等函数vb.net读写文件代码vb.net发布水晶报表程序步骤VB.net 查询获取数据库数据信息VB.net读取Word文档属性的方法VB.NET拷贝整个目录下所有子目录及文件的实例代码VB.NET...
讲得很详细,是新手入门的好帮手。里面是word文档,不会耗各位流量。
采用VB(Visual Basic)为平台设计了一个设计计算程序系统,简短了设计计算开发时间,同时提高了设计计算的高效性和准确性,并建立Access数据库文件,Word帮助文档,AutoCAD帮助图库,为设计计算提供了快捷方便的辅助,并给出...
本word文档含有部分毕业设计插图
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...