最近学习了Office大佬的一些隐藏功能，又一次领略到了Office的强大与实用。今天整理了一些Word的隐形功能~
个人认为，在大学的学习过程中Office中Word的使用频率是最高的。无论是平时的作业、实验报告还是之后的毕业论文，都要在Word下完成，所以要尽可能地提高Word的使用效率，降低出错风险。
所以就很有必要掌握一些巧妙的Word使用小技巧啦，这样才有时间愉快地玩耍嘛~
下面先介绍我认为比较实用的几个Word小技巧
1、Word中宏的使用
 宏是指将一系列Word命令和指令组合在一起形成一个命令，可实现任务执行的自动化。
当女神请你帮她完成一份重复性很高的文档时，可以立马使用这套高效便捷的方法获取女神芳心哈哈哈。
下面演示一下哈.....
其步骤可分解为以下几步：
(1).单击【视图】选项中的【宏】-【录制宏】，直接进入录制状态
(2).输入【宏名】，如女神的芳名，以便以后调用时心知肚明
(3).选择宏的保存位置，可设置快捷键加快调用效率
(4).按下【确定】开始录制，录制完成后【停止录制】，之后调用即可
(5).可对代码进行修改，进入VBA代码界面编辑刚才录制好的宏
2、当女神碰到不认识的字问你怎么读时，这个时候Word也可以拯救你的学ba人设。不要慌，打开你桌面上0000FF色的Word软件，复制刚才女神发给你的令人难以启齿的字，然后.....
3、同理，当遇到不认识的英语单词时，也可运用Word的“英汉词典”，秒杀。对不起，女神的英语可能比你好，所以来问你的概率比较小。
4、当你正在认真地用Word帮女神写文档时，突然眼前一黑，天意弄人，Word竟然强制关闭le！女神文档还没保存啊啊啊！
不要慌，这时你有两个解决方法....
(1)、选择【文件】-【选项】-【保存】，找到自动恢复文件位置，去那里找回女神文档
(2)、选择【文件】-【信息】-【管理文档】的自动恢复
5、Word中的自动朗读文档功能
世界上有一种遥远的距离，我知道她叫什么，但我却没有勇气叫出她的名字。那这个时候Word也可以助你一臂之力。
选择【文件】-【选项】-【自定义功能区】-【不在功能区中的命令】-【朗读】
再选择【审阅】-【新建组】-【添加】-【确定】
最后选择【审阅】-【朗读】就可以啦
6、Word中的分屏功能
当你要认真查看帮女神写的文档时，发给女神的文档怎么能容下一丝错误呢！那就是时候启用分屏功能了。
选择【视图】-【拆分】
7、用Word对图片进行压缩
当你要对女神的zhaopian进行压缩时，没必要动用PS，直接用Word即可完事。
选择【文件】-【选项】-【高级】-【图片大小和质量】。最后将女神的图片放入Word中，直接选择另存为即可。
8、从Word中批量提取图片
当你不小心从某份文档中发现女神的N张照片时，如何才能确保一张不漏地光速提取全部女神图呢！
法一、直接将Word文件的后缀格式改为.rar，然后进行解压即可。
法二、将文件另存为web页并保存，所有女神图片就在里面啦
9、Word中的F4操作
这个操作可谓是肥宅之光哈哈哈。不仅可在Word中使用，在Office中其他的软件也可使用。快捷键F4能重复上次的操作，不用我说了，你们懂的。
10、Word中竖向选中内容
按住Alt键，然后即可竖向选中自己想要的内容进行操作。
今天就整理这么些了，Word的功能真的很强大，感觉自己现在才接触到一点皮毛，还是要继续探索，争取自己亲手把每个功能都试过一次。遇到不懂的多goole，多去实践，嗯！

	

这篇文章讲一个Word批量导出图片的案例，下节课会讲图片导入Word的案例。
一、实际案例引入
这次遇到的案例需求：将档案信息表中的个人图片导出，以身份证号命名。具体表格结构如下的对应关系如下图截图中所示。
有n个格式一样的基础信息表，我们要做的就是把图片导出，以身份证号来命名。
关于本篇所有配图(均来自于网络，侵删)
二、思路及代码Q:
Word中图形对象有哪些？
A:
在word中的图形对象有InlineShape对象和Shape对象。其中InlineShape对象的是嵌入到文本层的图片，是指将图像作为文字处理，在排版上以文字的方式进行排版。而Shape对象是悬浮于文本之上位于图形层，可以自由浮动，并且可以放置在页面上的任何位置。
导出的时候也需要根据具体情况，来具体选择循环的图形对象。当然，你可以对这两种对象分别循环导出。
关于Word VBA导出图片有好几种方法，这里我比较推荐下面两种：
■另存为html方法(导出后无损，推荐)
手动操作步骤：
核心代码如下：
Sub doc另存为HTML()
    Dim WordDOC As Object
    Dim Path, Name As String
    Set WordDOC = Documents.Open("C:\Brildo\Test.docx")
    Path = WordDOC.Path
    Name = WordDOC.Name
    ActiveDocument.SaveAs2 FileName:=Path & "\" & Split(Name, ".")(0), FileFormat:=wdFormatHTML
    ActiveDocument.Close (0)
End Sub
多个Word文档批量导出图片操作的话，对于一些特定要求(比如对图片名有要求)，就稍微麻烦些，这就需要打开html文件夹并修改文件名，然后再把图片复制出来。
■复制到Excel后再导出图片(本文采用的方法)
大致思路就是，Word文档中的图片复制到Excel中，然后Excel再利图表导出图片的功能导出。关于Excel如何批量导出图片，看我之前的文章代码合集，各取所需【操作图片】
完整代码：
Sub 导出Word图片()
    Dim PathSht As String, wb As Workbook
    Application.ScreenUpdating = False
    For Each shp In ActiveSheet.Shapes '清除本表中的图片
        shp.Delete
    Next
    With Application.FileDialog(msoFileDialogFolderPicker) 'FileDialog对象，选择文件夹对话框
        If .Show Then PathSht = .SelectedItems(1) Else Exit Sub
    End With
    PathSht = PathSht & IIf(Right(PathSht, 1) = "\", "", "\")
    myfile = PathSht & "保存图片"
    fol = Dir(myfile, vbDirectory)
    If fol = "" Then MkDir myfile '新建存储图片的路径
    myname = Dir(PathSht & "*.doc*")
        Call wd_pic(PathSht)
    MsgBox "完成！"
    Application.ScreenUpdating = True
End Sub

Sub wd_pic(p As String)
    Set wordapp = CreateObject("word.application")
    Set sht = ThisWorkbook.ActiveSheet
    f = Dir(p & "*.doc*") '结合Do While循环获取Word文档
    Do While f <> ""
        Set WordDOC = wordapp.Documents.Open(p & f)     '逐个打开Word文件
        wordapp.Visible = True
        shenfen_num = l(WordDOC.Tables(1).cell(7, 2).Range) '获取身份证号
        For i = 1 To WordDOC.Shapes.Count '对文档中的图片进行遍历
            WordDOC.Shapes(i).Select '选中图片
            wordapp.Selection.Copy '复制图片。这里不能合并为一句，否则报错
            sht.PasteSpecial Format:="图片(增强型图元文件)", Link:=False, DisplayAsIcon:=False
            Set Excel_Shape = sht.Shapes(1) '因为当单个doc中存在图片量过多，均复制到xls中造成数据量过大，
            Excel_Shape.ScaleHeight 1, True, msoScaleFromMiddle
            Excel_Shape.ScaleWidth 1, True, msoScaleFromMiddle
            '这里采用了复制一个进入xls，再另存图片后，立即删除xls中的图片数据，所以遍历时，index永远是1
            Excel_Shape.Copy
            With sht.ChartObjects.Add(0, 0, Excel_Shape.Width, Excel_Shape.Height).Chart
                .Parent.Select '64位必须加这句，否则导出后是空白图片
                .Paste
                .Export p & "保存图片\" & shenfen_num & ".bmp"
                .Parent.Delete '删除第二次复制产生的数据
            End With
            Excel_Shape.Delete '删除第一次复制产生的数据
        Next i
        WordDOC.Close '关闭当前Word文档
        f = Dir
    Loop
    wordapp.Quit '退出Word程序
End Sub
Function l(a) '清除Word表格中的不可见符号
    l = WorksheetFunction.Clean(a)
End Function
三、知识点
■选择文件夹对话框
如果文件夹位置不确定，想获取人为选择的文件夹路径，就要用到以下代码块。
    With Application.FileDialog(msoFileDialogFolderPicker) 'FileDialog对象，选择文件夹对话框
        If .Show Then PathSht = .SelectedItems(1) Else Exit Sub
    End With
    PathSht = PathSht & IIf(Right(PathSht, 1) = "\", "", "\")
关于FileDialog对象更多功能，可以阅读这篇文章：获取文件全路径(二)FileDialog对象
■循环打开Word文档
这里是打开代码文档路径下的文档，如果需要打开其他路径的文档，结合上面的代码。
Sub 循环打开Word文档框架()
    Set doc = CreateObject("word.application")
    f = Dir(ThisWorkbook.Path & "\*.doc")
    Do While f <> ""
        Set wd = doc.Documents.Open(ThisWorkbook.Path & "\" & f)
        doc.Visible = True
               '你要操作的核心代码
        f = Dir
        wd.Close False
    Loop
    doc.Quit
    MsgBox "完成！"
End Sub
■新建文件夹
该段代码作用：判断D盘是否有例子文件夹，如果没有，则新建一个名为“例子”的文件夹。
Sub 新建文件夹()
    myfile = "d:/例子"
    f = Dir(myfile, vbDirectory)'利用Dir函数，先获取文件夹
    If f = "" Then MkDir myfile'找不到该文件夹，会返回空值。
End Su
原创不易，如果你觉得不错，希望你能帮忙转发或者再看~
VBA微信交流群已经壮大到1000人左右，目前准备开设3群，需要交流VBA或者函数的朋友可扫码，邀请你进群。
=  推荐阅读  =
Excel和Word数据交互读取(生成合同)
Excel和Word数据交互读取(一)
Excel和Word数据交互读取(二)
Excel提取Word简历数据.xls

大家好，我们今日讲解“VBA信息获取与处理”教程中第十五个专题“将Excel数据信息传递给WORD应用”的第一节“在EXCEL界面实现WORD文档的打开和校验”，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的程序文件。
大家好，当今的时代，信息的传递是非常重要的，我们这个专题的内容是将EXCEL的数据信息传递给OFFICE应用的WORD，下一个专题中还会讲解传递给PowerPoint，至于其他的OFFice应用，传递给Office Access和Outlook的内容，我在其他的教程内容中已经详细地讲解，这里不再多叙
第一节  在EXCEL界面实现WORD文档的打开和校验
关于将EXCEL的数据信息传递给WORD，我在很多内容中均有讲解，今天的内容只是汇总再现一下几个关键的知识点，这讲我们先汇总一下如何在EXCEL界面实现WORD文档的打开和校验。
1  利用后期绑定方案在EXCEL中打开WORD
关于在EXCEL中打开WORD，我在本套书的第一个专题中也有讲解，那里采用了一个非常典型的后期绑定方案来完成。所谓后期绑定方案就是在代码中实现绑定，利用了CreateObject语句来完成，例如下面的具体实现语句：
……………….
Dim myWdA As Object
Dim MyDocument As Object
RR = WordIsOpen("E:NZ文章06 VBA信息获取与处理001 在WORD中激活EXCEL.docm")
If Not RR Then  '创建Word对象
     Set myWdA = CreateObject("Word.Application")
myWdA.Visible = True '打开指定文档
Set MyDocument = myWdA.Documents.Open("E:NZ文章06 VBA信息获取与处理001 在WORD中激活EXCEL.docm")
……….
在上述代码中利用了后期绑定的方法实现了打开Word文件。同样我们也可以用前期绑定的方案。
2  利用前期绑定方案在EXCEL中打开WORD
利用前期绑定的方案就是在VBE的窗口，点击工具的菜单，找到引用，做如下勾选：
这样就实现了前期绑定的方案。我们在代码中就可以直接使用Word.Applicatio了，我们看一下前期绑定的标准代码：
Sub mynz() '打开和关闭word,前期绑定的方案
    Dim objApp As Word.Application
    Dim objDoc As Word.Document
    Set objApp = New Word.Application
objApp.Visible = True
    Set objDoc = objApp.Documents.Open(Filename:=ThisWorkbook.Path& "015WordTest.docx")
    'do something此处可以操作
objDoc.Close False
objApp.Quit
    Set objApp = Nothing
    Set objDoc = Nothing
End Sub
代码截图：
代码讲解: 
1)上述代码将要打开一个“015WordTest.docx”的文件，当然是在前期绑定基础上进行的
2) objDoc.Close False不保存关闭文件
3) objApp.Quit退出word
3  如何对已经打开的WORD文档进行检查
在操作的时候，我们往往会打开多个文档，如何对这些文档进行检查呢？如：找到我们需要的那个word文档，这就需要利用GetObject语句了，这个语句可以返回已经打开的word文档信息。关于这个语句的讲解,我在本套书的的第一个专题也已经讲过，就不再多述。我们仍是看看利用这个语句来检查已经打开的word文档的标准代码：
Sub mynzA() '检查打开的word文档
    Dim objApp As Object
    Dim objDoc As Object
    On Error Resume Next
    Set objApp = GetObject(, "Word.Application")
objDoc.Application.Visible = True
    If objApp Is Nothing Then
MsgBox "当前未检测到打开的Word应用程序！"
    Else
        For Each objDocInobjApp.Documents
Debug.PrintobjDoc.Name
        Next objDoc
    End If
    Set objApp = Nothing
    Set objDoc = Nothing
End Sub
代码截图：
代码的讲解：上述代码利用了GetObject语句，捕获已经打开的word文档。并将所有打开文档的name 反馈在即时窗口。
我们看看代码的实现效果，这个时候我的窗口已经打开了word文档，下面我要实现捕获。
这样就实现了信息的输出。
本节知识点回向：
 CreateObject语句的意义是什么？
②  GetObject语句的作用是什么？
③  前期绑定WORD与后期绑定如何实现？
本讲代码参考文件：015工作表.xlsm
  积木编程的思路内涵：
在我的系列书籍中一直在强调“搭积木”的编程思路，这也是学习利用VBA的主要方法，特别是职场人员，更是要采用这种方案。其主要的内涵：
1  代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码，一定要拷贝，从你的积木库中去拷贝，然后修正代码，把时间利用到高效的思考上。
2  建立自己的“积木库”。平时在学习过程中，把自己认为有用的代码放在一起，多积累，在用到的时候，可以随时拿来。你的积木库资料越多，你做程序的思路就会越广。
VBA的应用界定及学习教程：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程，目前教程均通过32位和64位两种OFFICE系统测试。
第一套：VBA代码解决方案  是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案  数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案   数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频  是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
上述教程的学习顺序：1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库，供读者使用，如需要可以WeChat: NZ9668
学习VBA是个过程，也需要经历一种枯燥的感觉
“众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山”。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。
“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。学习时微而无声，利用时则巨则汹涌。“路漫漫其修远兮，吾将上下而求索”
每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：
浮云掠过，暗语无声，
唯有清风，惊了梦中啼莺。
望星，疏移北斗，
奈将往事雁同行。
阡陌人，昏灯明暗，
忍顾长亭。 
多少VBA人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享我多年工作实际经验的成果，随喜这些有用的东西，给确实需要利用VBA的同路人。回向学习利用VBA的历历往事，不胜感慨，谨以这些文字以纪念，
分享成果，随喜正能量 

	

阅读本文前，请您先点击上面的“蓝色字体”，再点击“关注”，这样您就可以继续免费收到文章了。每天都会有分享，都是免费订阅，请您放心关注。注图文来源网络，侵删                                                                                                                                   
我们平常使用的office软件，就是一个强大的格式转换器！
今天就和大家分享一下PPT中的多种格式转换方法，一起学习学习~
一、PPT常用转换格式
1、PPT转Word
我们经常使用的PPT就自带转Word的功能！使用快捷键【Alt+F11】键打开VBA编辑器，选择【工具】—【引用】，找到Microsoft Word 15.0 Object Library选项并勾选。
接着点击【插入】—【模块】，在空白区域输入以下代码Sub Main()On Error Resume NextDim temp As New Word.Document, tmpShape As Shape, tmpSlide As SlideFor Each tmpSlide In ActivePresentation.SlidesFor Each tmpShape In tmpSlide.Shapestemp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.TextNext tmpShapeNext tmpSlidetemp.Application.Visible = TrueEnd Sub
最后按F5键运行代码，我们就可以看到PPT已经成功转换为Word了，里面出现的空行使用替换功能删掉就可以了！
2、PPT转PDF
将文档转换为PDF格式，就可以防止被别人轻易更改文档内容了，直接选择另存为PDF格式就可以了。
3、多文档转换
如果是要批量转换PPT文档的，还可以选择迅捷PDF转换器在线版，专注于PDF文件与其他格式文件的转换，不要错过啦~
在【文档转换】中找到【PPT转PDF】，选择进入转换页面，点击选择文件导入，还可以自定义转换页码~
导入文件后就会开始转换，我们等待转换后直接预览或选择【立即下载】就ok啦~
二、其他文档转换格式
1、PPT转图片
将PPT演示文稿转换为图片，软件为我们提供了五种常见图片格式，供用户转换，推荐使用PNG 格式，这样保存下来的图片清晰度更高。
选择好对应的图片格式后，点击确定，软件就会提示，是要导出所有幻灯片，还是仅当前显示的幻灯片。
2、PPT转视频
什么？PPT还可以选择导出格式为视频？是的，我们选择另存为，将PPT导出为视频~
你还可以自己设置视频的分辨率和添加旁白，选择【文件】—【导出】—【创建视频】功能进行操作就即可。
3、高版本转低版本
有些人电脑上只安装了低版本PowerPoint，使用高版本制作的PPT，在低版本软件上打开就会存在兼容性问题，我们可以将PPT另存为低版本格式，软件会自动检测文档兼容性，并给我们指明问题，如果问题不会影响幻灯片演示的，直接选择【继续】等待转换完成就可以了。
看完都了解了吗？下次再碰到需要格式转换的文档，先别急着找软件工具，先试着打开【另存为】或【导出】看一下吧~