type
status
date
slug
summary
tags
category
icon
password
是否阅读
是否阅读
Origin
URL
VBA 实践 + 把大纲级别分明的 word 文档转换成横向从属结构 excel 表格
有一个比较规范的 word 文档，各级标题大纲级别分明，现在要按照各段落的大纲级别转换到 excel 中，表格是横向从属结构的，如最左侧的是一级大纲的内容，往右侧依次对应是二级大纲，三级大纲…… 左侧要根据其右侧对应的内容行数的多少进行单元格合并。整体要求如下图所示。
之前写了一个文章，通过手动半自动的方法实现，步骤较多，操作比较麻烦。文章链接如下：
现在通过 VBA 代码的方式，一键实现上述的所有过程。代码包括一个主程序、两个子过程和一个自定义函数。主程序 “WordToExcel” 会调用两个子过程。“RngToExcel(Rng As Range)”子过程完成 word 内容转换到 excel 中；“标题列单元格合并 (ExSheet As Worksheet)” 子过程完成 excel 中单元格的合并，它会调用自定义函数 “获得区域内非空单元格行号(Orange As Excel.Range)” 来帮助处理单元格合并。
代码在 Word VBA 中运行，在运行前需要引用 excel 的对象库，操作如下图所示。
代码如下：
代码运行演示
想要学习更多有关 VBA 的实用知识，可以看电子书
- 作者:木木
- 链接:https://blog.manyfun.top/technology/2023/07/10/vbashijian
- 声明:本文采用 CC BY-NC-SA 4.0 许可协议，转载请注明出处。
相关文章
