word办公插件中的佼佼者，Word魔方

盛行自动化办公的今天，越来越多的自动化办公插件涌现出来。今天就介绍其中一款插件，Word魔方。

魔方包含90多个强大功能。其中包括一键AI智能排版、批量合并文档、批量拆分文档、批量提取Word数据到Excel、批量插入首页封面、批量整理文档格式、批量插入图片、批量另存图片、批量插入图片、批量统一图片尺寸、批量调整Word表格的格、批量生成PDF、批量转换PDF等等。

插件在一些复杂功能中，添加了演示视频，让第一次使用的人也不会摸不着头脑，无从下手。

我们着重介绍其中的一些功能：

多文档格式大师

该功能支持批量处理多个文档中的特定内容，包含删除空行、删除页眉页脚、删除可选文字、空白页、最后一段、表格转文字、清除超链接和网址、去白字、去除页眉横线、去除水印、清除所有图片、清除手机号、清除白色背景、清除属性、去除文本框复选框、清除邮箱、手动换行符转回车符等。

支持对文件夹下所有的文档执行操作，支持子文件夹。

批量添加页眉页脚

批量对多个文档添加页眉或者页脚，支持向页眉页脚中添加自定义文字以及图片，支持添加的同时，对页眉页脚添加限制编辑的密码。

此功能对于保护自己的文档大有作用。

批量插入图片到表格【多行信息】 

将多个图片插入到Word的表格中，图片下方备注多行信息，另外可以选择插入后图片展示几列。多行信息来自于图片名字，图片名字要遵循一定命名规则，例如：信息1+信息2+信息3.jpg，导入word表格之后，图片下方展示的信息就是：信息1、信息2、信息3

按关键字位置取值到Excel【纯段落】

通常我们要重复提取每个文档中一些关键字后面的东西，例如：【联系人：】后面的名字；【联系电话：】后面的具体内容。这个时候我们就可以把这些值得前后关键词限定条件录入，交给插件去批量取抓取数据到Excel。

提取多文档数据到Excel【段落+表格】是 提取多文档数据到Excel【纯表格】的升级版，针对内部是【表格+一般文字性描述段落】混合的文档，例如：一些调查表、技术交底等。可以一键提取所有文档中固定位置和相对位置的数据

合并、拆分文档

快速批量合并多个Word文档。需要注意的是，如果多个word文档格式不一致，合并之后，格式不能保证上下文一致。

按页数拆分文档，可以每1页拆分为1个文档，也可以每2页拆分为一个文档，拆分的页数自己来设定。

按一级标题去拆分文档，有多少个一级标题，就拆成多少个文档。

其中，导出关键字所在页功能应用广泛

导出包含某个关键字的页面成为独立文档。并且支持导出的文档转化为pdf文件。常见使用场景：导出签字页、导出XX调查表、导出合同最后几页附件表格等。

在插件的编写过程中，借鉴了很多优秀代码，下面也列举一些：

word批量插入图片（表格）Sub t() Set wd = Application Dim h As Integer Dim n As Integer Dim M As Integer Dim picrow As Integer Dim picname As String Dim picwidth Dim i Dim prr Dim pagewidth As Double wd.ScreenUpdating = False Dim a Dim P As Word.InlineShape Dim t As Word.Table If wd.Selection.Information(12) = True Then MsgBox (“请将光标置于表格之外！”): Exit Sub pagewidth = wd.ActiveDocument.PageSetup.pagewidth – wd.ActiveDocument.PageSetup.LeftMargin – wd.ActiveDocument.PageSetup.RightMargin With wd.FileDialog(3) .Title = “请选择…” If .Show = -1 Then n = Val(InputBox(“请输入表格的列数：”, “列数”, 3)) picrow = Val(InputBox(“请输入图片信息总行数：” & vbCrLf & “例如：” & vbCrLf & vbCrLf & “张三+20220209+天津市” & vbCrLf & “这种就输入3” & vbCrLf & vbCrLf & “张三+天津市” & vbCrLf & “这种就输入2”, “行数”, 3)) If Val(n) = 0 Then Exit Sub If Val(picrow) = 0 Then Exit Sub M = .SelectedItems.Count ‘h = IIf(M / n = Int(M / n), 2 * M / n, 2 * (Int(M / n) + 1)) ‘有余数就+1，没有余数不需加1 h = IIf(M / n = Int(M / n), (picrow + 1) * M / n, (picrow + 1) * (Int(M / n) + 1)) Set t = wd.ActiveDocument.Tables.Add(wd.Selection.Range, h, n) t.Borders.Enable = True t.Borders.OutsideLineStyle = 7 For Each a In .SelectedItems picname = GetFileInfo(a, 2) prr = Split(picname, “+”) Set P = wd.Selection.InlineShapes.AddPicture(FileName:=a, SaveWithDocument:=True) With P picwidth = .Width .Width = Int(pagewidth / n) .Height = .Width * .Height / picwidth End With i = i + 1 ‘移动光标写入内容，设置内容居中显示 wd.Selection.MoveLeft 1, 1 For j = 0 To UBound(prr) wd.Selection.MoveDown 5, 1 wd.Selection.TypeText (prr(j)) wd.Selection.Cells(1).Select wd.Selection.ParagraphFormat.Alignment = 1 ‘决定了首行居中 Next ‘/ wd.Selection.HomeKey wd.Selection.MoveUp 5, UBound(prr) + 1 wd.Selection.MoveRight 1, 2 ‘Debug.Print i, n ‘/换行操作替代 If i = Val(n) Then Dim activetbl As Word.Table Dim activerow As Integer activerow = Selection.Information(wdStartOfRangeRowNumber) Set activetbl = Selection.Tables(1) activetbl.Cell(activerow + picrow + 1, 1).Select ‘wd.Selection.MoveRight 1, 1 ‘wd.Selection.Cells(1).Select ‘wd.Selection.EndKey ‘wd.Selection.MoveDown 5, UBound(prr) + 1 i = 0 End If Next End If End With wd.ScreenUpdating = True MsgBox “完成！共导入” & M & “张图片。”, vbInformation, “Word魔方” ‘Catch ‘ MsgBox(Err.Description) ‘ wd.ScreenUpdating = True ‘End TryEnd Sub

查找隐藏文本Sub 查找隐藏文本() With ActiveDocument.Content.Find ‘查找全文 .ClearFormatting ‘清除查找框格式 .Format = True ‘查找包含格式 .Font.Hidden = True ‘查找字体格式为隐藏的 .Forward = True ‘向前查找 .Wrap = wdFindStop ‘查找完成后停止 Do While .Execute ‘如果找到了 ‘分别打印：找到的内容，找到内容的开始位置，找到内容的结束位置 Debug.Print .Parent, .Parent.Start, .Parent.End Loop End WithEnd Sub

Word反向查找Sub 向上查找关键字() Selection.HomeKey Unit:=wdLine ‘先到行首,因上次查找后,光标定位在查找结果之后 Selection.Find.ClearFormatting With Selection.Find .Text = “你好” .Replacement.Text = “” .Forward = False’关键语句 .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.ExecuteEnd Sub

更多更全的功能介绍如下：

序号功能描述说明1多文档格式大师该功能支持批量处理多个文档中的特定内容，包含删除空行、删除页眉页脚、删除可选文字、空白页、最后一段、表格转文字、清除超链接和网址、去白字、去除页眉横线、去除水印、清除所有图片、清除手机号、清除白色背景、清除属性、去除文本框复选框、清除邮箱、手动换行符转回车符等。支持对文件夹下所有的文档执行操作，支持子文件夹。2清除顽固尾页该功能可清除顽固尾部空白页。如果您各种尝试无效，可以试试它。3清除页眉页脚该功能可以清除当前文档中的页眉页脚。4删除水印一次性清除当前文档中的水印。这里只能清除Word自动生成的水印。5删除空行删除当前文档中的所有空行，包括没有内容的空格占据的一行。6删除所有空白页删除当前文档中所有的空白页。7删除页眉横线删除页眉中的横线8清除文档属性清除当前文档的属性信息9清除格式清除文字的所有格式10清除超链接清除当前文档中的超链接11清除图片清除当前文档中所有图片12清除段落首尾空白删除当前文档中段落首尾多出的空白符号。13批量清除多文档页眉页脚一次性清除多个文档中的页眉页脚。14批量添加页眉页脚批量对多个文档添加页眉或者页脚，支持向页眉页脚中添加自定义文字以及图片，支持添加的同时，对页眉页脚添加限制编辑的密码。15批量添加水印批量给多个文档添加水印，文字水印、图片水印都支持。16批量删除水印批量删除多个文档中的水印17多文档按条件批量替换内容按一定条件替换文档中的数据，比如：把【姓名：张三】替换成【姓名：李四】；把段落开头是【通知】两个字的段落执行替换等等，让替换更加灵活。18批量修改文档属性信息批量修改多个文档的属性信息。包括：作者、最后一次保存者、创建日期、修改日期19多个文档转pdf将多个word文档批量转化为pdf文件。20多个文档加封面尾页批量给多个文档添加封面页或者是尾页，封面和尾页需要自己提前制作好。21多个文档删除指定页该功能可以批量删除多个文档中的首页、尾页或者是其中某个范围的几页。22多文档批量替换内容该功能可以针对多个文档执行多组关键词的替换。23多个文档批量转html将多个文档批量转化为html文件格式24批量解除限制可以批量解除多个文档的限制编辑，让文档可以正常编辑25文件名复制到文档首行把多个word的文档名，分别复制并粘贴到每个word文档的首行，并对名字进行加粗26合并文档快速批量合并多个Word文档。需要注意的是，如果多个word文档格式不一致，合并之后，格式不能保证上下文一致。27按页拆分文档按页数拆分文档，可以每1页拆分为1个文档，也可以每2页拆分为一个文档，拆分的页数自己来设定。28按一级标题拆分文档按一级标题去拆分文档，有多少个一级标题，就拆成多少个文档。29拆分关键字所在页面导出包含某个关键字的页面成为独立文档。并且支持导出的文档转化为pdf文件。常见使用场景：导出签字页、导出XX调查表、导出合同最后几页附件表格等30删除所有表格删除当前文档中所有的表格31首行加粗对文档中所有的表格首行执行加粗操作32首列加粗对文档中所有的表格首列执行加粗操作33批量插行对选定的表格，批量插入多个空行34表格居中批量居中文档中的所有表格35表格最佳宽度对于全文的表格设置最佳宽度，可以根据内容自动调整，也可以根据窗口自动调整36表格转文字将当前文档中所有的表格转化为文字，单元格之间以特定分隔符分隔。37跨页拆表对于跨越2个页面的表格，程序可以自动的将表格拆分为2个。38删除表格空白行一次性删除所有表格中没有数据的空白行39批量插入图片到文档插入多个图片到文档中，并且图片下方显示图片名字信息40批量插入图片到表格【单行信息】将多个图片插入到Word的表格中，图片下方备注图片的名字，另外可以选择插入后图片展示几列。41批量插入图片到表格【多行信息】将多个图片插入到Word的表格中并自动排版，图片下方备注多行信息，另外可以选择插入后图片展示几列。多行信息来自于图片名字，图片名字要遵循一定命名规则，例如：信息1+信息2+信息3.jpg，导入word表格之后，图片下方展示的信息就是：信息1、信息2、信息342导出文档中所有图片【高清原图】导出文档中所有已存在的图片，均为原图大小。无任何压缩。43环绕改嵌入转换文档中所有浮动图片为嵌入的图片形式44统一图片尺寸修改文档中所有图片的尺寸为指定尺寸45清除指定尺寸图片删除文档中满足尺寸的图片，可以删除高度大于某个尺寸的图片，也可以删除高度等于某个尺寸的图片。46图片版式转换更强大的改图片版式，浮动转嵌入、嵌入转浮动47导出Word所有表到Excel文档中如果有很多个表格，可以一次性导出到excel文件中，可以导出到1个sheet，也可以导出到多个sheet。48提取多文档数据到Excel【纯表格】针对多个内部是表格，并且格式相同的文档，例如：一些Word表格简历、一些调查表、技术交底等。可以一键提取所有文档中固定位置的数据。49提取多文档数据到Excel【段落+表格】提取多文档数据到Excel【纯表格】的升级版，针对内部是【表格+一般文字性描述段落】混合的文档，例如：一些调查表、技术交底等。可以一键提取所有文档中固定位置和相对位置的数据。50按关键字位置取值到Excel【纯段落】通常我们要重复提取每个文档中一些关键字后面的东西，例如：【联系人：】后面的名字；【联系电话：】后面的具体内容。这个时候我们就可以把这些值得前后关键词限定条件录入，交给插件去批量取抓取数据到Excel。51常用符号列举了常见的一些特殊符号，可以一键插入52Word文档转图片将当前文档的某些页面转化为图片，导出到本地。支持包含页眉页脚。53护眼模式修改当前文档底色为豆青色54导出批注到Excel导出文档中所有批注到excel表格，高版本批注有批注答复状态字段，也支持导出。55插入当前日期按指定格式，快速插入当前日期，例如：二〇二二年十一月八日、2022年11月08日、2022年11月08号、2022-11-0856自动编号转文本将文档中的自动编号转成普通文本，以便后续进行排版操作。57批量查找自带查找的增强版，支持多关键字一键查找、标记查找内容的底色，并统计每个查找关键词的个数。58批量上下标一次性设置常见单位的上下标，㎡、m³等，也支持自定义设置上下标。59金额转大写将文档中的数字金额转换为财务专用的金额大写文本60PDF转图片把PDF文件按页拆分为图片格式61另存为PDF当前文档另存为PDF文件62印章工具将印章图片批量插入到文档中，可以插入到每一页或者奇数页、偶数页。支持随机位移以及随机旋转角度63批量重命名可批量重命名本地任意后缀文件，支持添加前缀、后缀、替换文件名中的字符、以及加递增编号前缀并且可自动补齐位数。64解除限制解除当前文档的限制编辑65批量替换对当前文档执行批量替换，支持多对多、多对一替换66选取多段的首句一次性选中每一段的首句内容，以便后续对首句内容修改格式67选取多段的首字一次性选中每一段的第一个字，以便后续对首字修改格式68选取每一页的首行内容一次性选中每一页的第一行内容，以便后续对首字修改格式69选取当前页面所有浮动图片选取当前页所有的浮动图片，以便后续对图片执行合并、删除等操作70选取关键字所有段落选中文档中包含某个关键字的所有段落71选中所有表格选中文档中所有表格，方便对表格执行批量设置72选中所有表格首列选中文档中所有表格的第一列，方便对表格第一列执行批量设置73选中所有表格首行选中文档中所有表格的第一行，方便对表格第一行执行批量设置74当前段落号显示光标所在的当前段落号75插入横向页一键插入横向页面76度量单位设置当前度量单位77纵横转化对当前页执行纵向和横向转化，当前页为横向则转化为纵向，当前页纵向则转化为横向78定位首页光标快速定位至首页79定位尾页光标快速定位至尾页80样式设置设置各级标题的特征首字符，以及各级标题的段落格式。以便于程序后续对全文的段落智能识别并排版。可以根据自己的需求，设置多个排版模板，默认为《党政机关公文格式（GBT9704 – 2012）》81一级标题、智能一级标题在配置好样式的基础上，一键设置一级标题的样式、大纲级别82二级标题、智能二级标题在配置好样式的基础上，一键设置二级标题的样式、大纲级别83三级标题、智能三级标题在配置好样式的基础上，一键设置三级标题的样式、大纲级别84四级标题、智能四级标题在配置好样式的基础上，一键设置四级标题的样式、大纲级别85正文在配置好样式的基础上，一键设置正文样式86页边距在配置好样式的基础上，一键设置当前文档的页边距为当前样式的设置值87选择标题根据当前样式设置，快速选择文档中满足特征首字符的段落。以便后续手动设置格式。举例：样式设置中，一级标题的特征首字符是【第一章】，那么这里按钮的作用，就会对文档中所有以【第一章】、【第二章】、【第三章】…开头的段落执行选中。88添加页码依据规范《党政机关公文格式（GBT9704 – 2012）》，添加页码89姓名加空对齐对于选中部分的2个汉字的姓名格式化，例如：张三，修改为张 三90统计数值统计选定区域中的数字，并且累加求和91特殊数值提取统计数值的增强版，可以限定需要统计数字的前缀后缀。比如：只统计【元】前面的数字92计算公式对于文档中选中的公式，一键求值，不用再粘贴到excel计算完再粘贴回来那么繁琐了93求表格合计对于选中表格中的数据，一键将合计计算出来，并列到尾行或者尾列94二维码把选中内容或者剪切板内容生成二维码，支持导出到本地