VB控制Word文档实例精选一

最新推荐文章于 2024-10-15 12:57:54 发布

置顶

东方之珠

最新推荐文章于 2024-10-15 12:57:54 发布

阅读量5.1k

点赞数 3

分类专栏：基础知识文章标签：文档 Word VB 实例图片

本文链接：https://blog.csdn.net/chenjl1031/article/details/8905354

版权

本文展示了使用VB控制Word的实例，包括在文档中创建表格并设置单元格内容，拆分与合并单元格，以及插入和导出图片。此外，还提及了统计Word文档的页数和字数功能。

摘要由CSDN通过智能技术生成

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

最低0.47元/天解锁文章