哈拉鱼先生-CSDN博客

原创 Excel VBA实现从多篇Word文档内抓取文本框内内容（书接上一篇博客）

Excel VBA实现从多篇Word文档内抓取文本框内内容（书接上一篇博客）一、前情提要我在上一篇博客《VBA摘取Word图形（Shapes）内文字》里验证了遍历doc文档内图形——尤其是文本框内内容的可行性。指出了文本框是形状（shape）而不是段落（paragraph）需要区别对待这一点。内容很简单直白，有兴趣的读者老爷可以移步先了解下。但拙作的局限性很明显：上一篇内容是在Word VB里实现的，和在Excel里打开相比缺少了创建word对象模型的步骤；仅在单篇内实现了摘取，完全没有涉及多文件

2022-04-13 00:14:40 3812

原创 VBA摘取Word图形(Shapes)内文字

要解决的问题：在使用VBA抓取Word文档内容时发现存放在形状里的文字是不能通过paragraphs读到的。如下图所示：解决思路简述：外圈for循环遍历Doc文档内所有形状对象得到它们的名字，知道了名字以后用“文本对象.shapes.Range(Array(形状名)).Select”方法锁定；锁定以后再内圈for循环读出备选中Selection里面的每一个字符并累加起来。详细的步骤和思路见下方代码注释。上代码（肯定有更好方法，我这个只是小白的尝试，请高手赐教）：Sub Demo()Dim

2021-08-05 15:48:45 4150

原创 VBA实现从指定文件夹批量抓取Word文档内容并整理（上）

任务场景：文件夹内已经汇总了几十上百篇Doc/Docx文档，可能是各部门的总结，可能是工会入会申请，或者其它半格式化（毕竟不是表格）内容，如果没有VBA帮忙，你就要挨个打开，之后copy-n-paste里面的特定内容到你的Excel表里；你在网上白嫖了一段代码，但是发现能用是能用，但是摘出来的信息有几个突出问题：1）到处夹空格、夹不可见符号；2）因为Word排版的关系，抓到Excel里面有很多空单元格；3）抓出来的同类信息不在同一列（举例来说，同是一份俱乐部申请，A的“自我介绍“部分写1段，B的“自我

2021-04-27 15:27:48 6734 2

原创 VBA代码删除字符串里所有空格（邮件地址内空格专杀！）

通过简单的问卷APP收上来的Email地址内夹杂大量的空格、中文符号，一进入和发件相关的工作环节就想杀人有没有？为了解决这个痛苦，今天研究出了一个组合使用双重DoWhile循环 + 文本函数组合消除字符串内部空格的小代码段供其他和我一样挣扎在一线的朋友们参考。代码比较6的请直接去最下方搬运拙作，我的注释写得及其详细，但凡有基础都能很快看懂。刚入门的朋友请先听我介绍以下思路。**带人犯！**这是一个典型的加在空格的email地址：Abc 12 @ nju .edu. cn一个短短的地址夹了5个空格，简

2021-03-25 14:44:34 7556

原创 VBA字符串操作：从右向左截取特定分隔符后的内容

@VBA字符串操作：从右向左截取特定分隔符后的内容熟悉EXCEL函数的朋友遇到截取字符串的时候第一个想到的肯定是FIND()、 LEN() 、LEFT()、**RIGHT()**这一套操作, 但很遗憾VBA里面的FIND针对的是Range对象，用到字符串类型的变量上只能会不停报错。此时需要请出的大神是VBA/Access里面的函数：InStr() 和 InStrRev(）兄弟对于大量诸如“上海市浦东新区金桥街道某某路某某号”这样的结构化文本而言，可以把重复出现的“市、区、街道、路、号”看做“分隔符”，

2021-03-11 13:01:53 17245

原创解决VBA运行时错误13 类型不匹配问题

解决VBA运行时错误13 类型不匹配问题先说解决方法：找到出错的语句以后给里面的参数改类型，使其互相兼容。比如：给单元格Cells()外面套个马甲 Val()比如：给数字外面套个马甲Int()详细的排查过程后面会慢慢讲……这是一个翻转灵异的奇怪问题。我这边出问题的例子参见杨洋老师的书《深入浅出Excel VBA》第3章，3.2.1节，我原样敲仅VBE里面运行就报错了：Sub Scores() Dim i For i = 3 To 5 Cells(i, 6) = C

2021-02-04 15:33:30 34672 4

原创借鉴代码五分钟，配置环境半小时——解决pip install红字问题

好的开始是成功的一半，为了解决个把类似PDF截取内容之类的问题借鉴下代码不需要很大功夫，但pip install频繁红字才真的恼人。写博客记录下自己认为最好的方法：把清华镜像站设置为默认的Package RepositoryURL: https://mirrors.tuna.tsinghua.edu.cn/help/pypi/在Prompt命令行窗口内输入：pip config set global.index-url https://pypi.tuna.tsinghua.edu.cn/simp

2020-07-13 23:49:41 1095 1

weixin_44869836的博客