henanlion的博客

表格在word文档中常见的文档元素之一。操作word文件时有时需要提取文件中多个表格的内容到一个新的文件，甚至有时还会要提取题注信息。今天，给大家分享两种批量提取文档中表格的两种方法，分别是VBA法和Python法两种。

VBA代码的优势非常明显，不需要安装额外的软件，只用编写一个宏来遍历文档中所有的形状（Shapes），检查它们是否是文本框，然后将这些文本框中的文本提取出来并写入到一个新的Word文档中。首先，我们选中文件中多个文本框中的一个，然后点击【开始】——【选择】——【选择相似的文本】，就可以全部选中所有文本框的内容，然后用快捷键ctrl+c复制，再打开一个新的文件粘贴就可以了。手动选取的方法也比较简单，思路就是定位——选中——复制——粘贴，可以把一个文档中的文本框内容复制到一个新文档当中。

日常的双语语料处理或者术语格式转化过程中经常要用到下面的操作：1.在Excel中把一列双行即上下对照的形式改为左右对照。如下图所示，把A转化为B这种样式。2. 把B这种左右对归照转化为A这种上下对照样式。

有模板工作簿1，其中有工作表A和工作表B两个工作表。现在要求把工作簿1中的工作表B批量复制到当前目录下的其它近百个工作簿中，保持原有的工作表名不变，同时把其中的公式更新为引用当前工作簿的内容。如果手工复制、粘贴，然后用查找替换的方法更新公式，可能会改变工作表的格式，同时也会非常的繁琐、耗时。以下是通过VBA编写的程序，需要将这个程序放在工作簿1.xls中新建的模块里，然后运行就可以了。所以考虑使用VBA来批量解决这一问题。

人事、财务经常会用到工资条，如果手工添加比较麻烦，而且容易出错，我们可以通过录制宏，或者插入VBA代码的方法来解决。有了VBA后，我们可以定义按钮，绑定VBA代码，实现一键生成工资条，或者恢复成工资表。

在VBA中我要把B列中所有的非空单元格的值都判断一遍，如果大于60就在其旁边的单元格写入"及格"，反之就写入不及格。由于B列的非空单元格数量无法确定，所以我们就要定义一个自定义的函数来获取B列中最后一个非空单元格的值，然后再进行遍历循环。在VBA中，End(xlUp)是一个用于定位单元格的方法，它可以用于查找某一列或行最后一个非空单元格的位置。

最近，我在自学VBA，有了之前的Python基础，感觉学起VBA也比较轻松。毕竟VBA和Python一样都是面向对象的编程语言。通过自学，我基本上掌握了VBA的循环方法，以下是我的简单笔记和大家一起分享。

VBA是比较简单的编程语言，只要安装用microsoft office就可以用来调试代码，不用安装第三方工具，值得大家抽空学一学。如果有Python编程的基础，学起来就非常的简单了。今天我们来学习一下如何用VBA打印出某列单元格的值。比如：我们在Excel中有A列10行从1..10的数值，现在我们想用debug.print打印出这些值，应该如何操作呢？