精华内容
下载资源
问答
  • 今天整理了一些Word的隐形功能~个人认为,在大学的学习过程中Office中Word的使用频率是最高的。无论是平时的作业、实验报告还是之后的毕业论文,都要在Word下完成,所以要尽可能地提高Word的使用效率,降低出错风险...
    7b3b34ce6132b40a5e45f16b8c2d9d49.gif

    最近学习了Office大佬的一些隐藏功能,又一次领略到了Office的强大与实用。今天整理了一些Word的隐形功能~

    179e8ad2db4fab019b598fb8a71f5a82.gif

    个人认为,在大学的学习过程中Office中Word的使用频率是最高的。无论是平时的作业、实验报告还是之后的毕业论文,都要在Word下完成,所以要尽可能地提高Word的使用效率,降低出错风险。

    所以就很有必要掌握一些巧妙的Word使用小技巧啦,这样才有时间愉快地玩耍嘛~

    ae1f8b0e340d17c446c8ed29ded875e9.png

    下面先介绍我认为比较实用的几个Word小技巧

    1、Word中宏的使用

     宏是指将一系列Word命令和指令组合在一起形成一个命令,可实现任务执行的自动化。

    当女神请你帮她完成一份重复性很高的文档时,可以立马使用这套高效便捷的方法获取女神芳心哈哈哈。

    下面演示一下哈.....

    e25b16eae8e1a69323b23de0296c97ec.png969bb17e86b3be0a5a416a9bfc692216.png99cf97cecf5b6a73d065e67e17cd39df.png

    其步骤可分解为以下几步:

    (1).单击【视图】选项中的【宏】-【录制宏】,直接进入录制状态

    (2).输入【宏名】,如女神的芳名,以便以后调用时心知肚明

    (3).选择宏的保存位置,可设置快捷键加快调用效率

    (4).按下【确定】开始录制,录制完成后【停止录制】,之后调用即可

    (5).可对代码进行修改,进入VBA代码界面编辑刚才录制好的宏

    5929110cdcc884651077ab3b13a9a707.png

    2、当女神碰到不认识的字问你怎么读时,这个时候Word也可以拯救你的学ba人设。不要慌,打开你桌面上0000FF色的Word软件,复制刚才女神发给你的令人难以启齿的字,然后.....

    7f6a06833e98308bd03e7bde84b0c0df.png0102cd625083a9464170ba26768cedb7.png5929110cdcc884651077ab3b13a9a707.png

    3、同理,当遇到不认识的英语单词时,也可运用Word的“英汉词典”,秒杀。对不起,女神的英语可能比你好,所以来问你的概率比较小。

    db34be09b4762aed042cb229d6f4488d.png5929110cdcc884651077ab3b13a9a707.png

    4、当你正在认真地用Word帮女神写文档时,突然眼前一黑,天意弄人,Word竟然强制关闭le!女神文档还没保存啊啊啊!

    不要慌,这时你有两个解决方法....

    (1)、选择【文件】-【选项】-【保存】,找到自动恢复文件位置,去那里找回女神文档

    b31f6001657b6942f3f9eaa8384f835f.png

    (2)、选择【文件】-【信息】-【管理文档】的自动恢复

    74ab4852eb71ecc2cfe4761218f66dd8.png5929110cdcc884651077ab3b13a9a707.png

    5、Word中的自动朗读文档功能

    世界上有一种遥远的距离,我知道她叫什么,但我却没有勇气叫出她的名字。那这个时候Word也可以助你一臂之力。

    选择【文件】-【选项】-【自定义功能区】-【不在功能区中的命令】-【朗读】

    再选择【审阅】-【新建组】-【添加】-【确定】

    最后选择【审阅】-【朗读】就可以啦

    66ad37f47904061edca9b55a8bf65cc1.png5929110cdcc884651077ab3b13a9a707.png

    6、Word中的分屏功能

    当你要认真查看帮女神写的文档时,发给女神的文档怎么能容下一丝错误呢!那就是时候启用分屏功能了。

    选择【视图】-【拆分】

    e6610cf205a83fba59b4dd3abd7fdbb3.png5929110cdcc884651077ab3b13a9a707.png

    7、用Word对图片进行压缩

    当你要对女神的zhaopian进行压缩时,没必要动用PS,直接用Word即可完事。

    选择【文件】-【选项】-【高级】-【图片大小和质量】。最后将女神的图片放入Word中,直接选择另存为即可。

    50b22e15b495c365ef5993118cb7b436.png5929110cdcc884651077ab3b13a9a707.png

    8、从Word中批量提取图片

    当你不小心从某份文档中发现女神的N张照片时,如何才能确保一张不漏地光速提取全部女神图呢!

    法一、直接将Word文件的后缀格式改为.rar,然后进行解压即可。

    法二、将文件另存为web页并保存,所有女神图片就在里面啦

    5929110cdcc884651077ab3b13a9a707.png

    9、Word中的F4操作

    这个操作可谓是肥宅之光哈哈哈。不仅可在Word中使用,在Office中其他的软件也可使用。快捷键F4能重复上次的操作,不用我说了,你们懂的。

    5929110cdcc884651077ab3b13a9a707.png

    10、Word中竖向选中内容

    按住Alt键,然后即可竖向选中自己想要的内容进行操作。

    064c067a51b3e4c1c9e43bb9afa3915c.pnge5624498cd6cee990f7a22c61b76f23d.gif

    今天就整理这么些了,Word的功能真的很强大,感觉自己现在才接触到一点皮毛,还是要继续探索,争取自己亲手把每个功能都试过一次。遇到不懂的多goole,多去实践,嗯!

    c2b598cb7115d6cf3ee308b1666b93b7.png
    展开全文
  • 这篇文章讲一个Word批量导出图片的案例,下节课会讲图片导入Word的案例。一、实际案例引入这次遇到的案例需求:将档案信息表中的个人图片导出,以身份证号命名。具体表格结构如下的对应关系如下图截图中所示。有n个...

    这篇文章讲一个Word批量导出图片的案例,下节课会讲图片导入Word的案例。

    一、实际案例引入

    这次遇到的案例需求:将档案信息表中的个人图片导出,以身份证号命名。具体表格结构如下的对应关系如下图截图中所示。

    有n个格式一样的基础信息表,我们要做的就是把图片导出,以身份证号来命名。

    72db9fb734fb026b084095dcf67ccef3.png

    4687cb57d6d389b7689c8a8ca577978d.png

    关于本篇所有配图(均来自于网络,侵删)

    5149137320fa0672575764c2aaf861e7.png

    二、思路及代码Q:

    Word中图形对象有哪些?

    A:

    在word中的图形对象有InlineShape对Shape对象。其中InlineShape对象的是嵌入到文本层的图片,是指将图像作为文字处理,在排版上以文字的方式进行排版。而Shape对象是悬浮于文本之上位于图形层,可以自由浮动,并且可以放置在页面上的任何位置

    导出的时候也需要根据具体情况,来具体选择循环的图形对象。当然,你可以对这两种对象分别循环导出。

    关于Word VBA导出图片有好几种方法,这里我比较推荐下面两种:

    ■另存为html方法(导出后无损,推荐)

    手动操作步骤:

    2fcb5d17644211dfcd228c6c1c67ad1c.png

    b1c6c6b0139d00bbea76265b17f5fd61.png

    核心代码如下:

    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(1Else 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(72).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 1True, msoScaleFromMiddle
                Excel_Shape.ScaleWidth 1True, msoScaleFromMiddle
                '这里采用了复制一个进入xls,再另存图片后,立即删除xls中的图片数据,所以遍历时,index永远是1
                Excel_Shape.Copy
                With sht.ChartObjects.Add(00, 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

    71e80b2d5f848c64b95f1eadf09532fa.gif

    三、知识点

    ■选择文件夹对话框

    如果文件夹位置不确定,想获取人为选择的文件夹路径,就要用到以下代码块。

        With Application.FileDialog(msoFileDialogFolderPicker) 'FileDialog对象,选择文件夹对话框
            If .Show Then PathSht = .SelectedItems(1Else 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

    19bf3cbb9ab6fcfbe4bb3fcb7279bf9b.gif

    原创不易,如果你觉得不错,希望你能帮忙转发或者再看~

    3c6f445dd85ef4a7c04f7d719ed9d0c2.png

    VBA微信交流群已经壮大到1000人左右,目前准备开设3群,需要交流VBA或者函数的朋友可扫码,邀请你进群。

    4d9c233bf5afc63002c2b5d8da4e99e8.png

    d82d2e6693bde51828c002792c3b9193.png

    =  推荐阅读  =

    Excel和Word数据交互读取(生成合同)

    Excel和Word数据交互读取(一)

    Excel和Word数据交互读取(二)

    Excel提取Word简历数据.xls


    cc2ea13e7b54a7a80d48d371fa48d947.png

    展开全文
  • 大家好,我们今日讲解“VBA信息获取与处理”教程中第十五个专题“将Excel数据信息传递给WORD应用”的第一节“在EXCEL界面实现WORD文档的打开和校验”,这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供...

    f9379cade207720222a2c16bcef6c541.png

    大家好,我们今日讲解“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的窗口,点击工具的菜单,找到引用,做如下勾选:

    383b0c4c8d118fdeee8ba04a80e3f815.png

    这样就实现了前期绑定的方案。我们在代码中就可以直接使用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

    代码截图:

    c076344e231b41f29e68b9410a186efb.png

    代码讲解:

    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

    代码截图:

    a82c2f2b7820c36d96f7d7b3aaf5768d.png

    代码的讲解:上述代码利用了GetObject语句,捕获已经打开的word文档。并将所有打开文档的name 反馈在即时窗口。

    我们看看代码的实现效果,这个时候我的窗口已经打开了word文档,下面我要实现捕获。

    c568735b025c85146a00ecede42adec7.png

    这样就实现了信息的输出。

    本节知识点回向:

    1. CreateObject语句的意义是什么?

    ② GetObject语句的作用是什么?

    ③ 前期绑定WORD与后期绑定如何实现?

    本讲代码参考文件:015工作表.xlsm

    74ee00281863977fe7975bb8f1badc0a.png

    积木编程的思路内涵:

    在我的系列书籍中一直在强调“搭积木”的编程思路,这也是学习利用VBA的主要方法,特别是职场人员,更是要采用这种方案。其主要的内涵:

    1 代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码,一定要拷贝,从你的积木库中去拷贝,然后修正代码,把时间利用到高效的思考上。

    2 建立自己的“积木库”。平时在学习过程中,把自己认为有用的代码放在一起,多积累,在用到的时候,可以随时拿来。你的积木库资料越多,你做程序的思路就会越广。

    74ee00281863977fe7975bb8f1badc0a.png

    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

    0af024601a31b261b1cb29471b0e2626.png

    学习VBA是个过程,也需要经历一种枯燥的感觉

    “众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山”。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。

    “水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。学习时微而无声,利用时则巨则汹涌。“路漫漫其修远兮,吾将上下而求索”

    每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:

    浮云掠过,暗语无声,

    唯有清风,惊了梦中啼莺。

    望星,疏移北斗,

    奈将往事雁同行。

    阡陌人,昏灯明暗,

    忍顾长亭。

    多少VBA人,

    暗夜中,悄声寻梦,盼却天明。

    怎无凭!

    分享我多年工作实际经验的成果,随喜这些有用的东西,给确实需要利用VBA的同路人。回向学习利用VBA的历历往事,不胜感慨,谨以这些文字以纪念,

    分享成果,随喜正能量

    展开全文
  • 使用快捷键【Alt+F11】键打开VBA编辑器,选择【工具】—【引用】,找到Microsoft Word 15.0 Object Library选项并勾选。 接着点击【插入】—【模块】,在空白区域输入以下代码Sub Main()On Error Resume NextDim ...

    0&wx_lazy=1

    阅读本文前,请您先点击上面的“蓝色字体”,再点击关注,这样您就可以继续免费收到文章了。每天都会有分享,都是免费订阅,请您放心关注。注图文来源网络,侵删                                                                                                                                   

    我们平常使用的office软件,就是一个强大的格式转换器!

    今天就和大家分享一下PPT中的多种格式转换方法,一起学习学习~

    一、PPT常用转换格式

    1、PPT转Word

    我们经常使用的PPT就自带转Word的功能!使用快捷键【Alt+F11】键打开VBA编辑器,选择【工具】—【引用】,找到Microsoft Word 15.0 Object Library选项并勾选。

    b36fc3b201eb92ea3a29597142608da3.gif

    接着点击【插入】—【模块】,在空白区域输入以下代码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

    fd044e537c6504f85de3a41a95af78bb.gif

    最后按F5键运行代码,我们就可以看到PPT已经成功转换为Word了,里面出现的空行使用替换功能删掉就可以了!

    9e2e0f5e9b87e266fd4398641a90e98a.png

    2、PPT转PDF

    将文档转换为PDF格式,就可以防止被别人轻易更改文档内容了,直接选择另存为PDF格式就可以了。

    293da719d118f7e3c4e7b8100cb39efd.png

    3、多文档转换

    如果是要批量转换PPT文档的,还可以选择迅捷PDF转换器在线版,专注于PDF文件与其他格式文件的转换,不要错过啦~

    89f37cf0dda179fd31e7182862c4dab7.png

    在【文档转换】中找到【PPT转PDF】,选择进入转换页面,点击选择文件导入,还可以自定义转换页码~

    a8163a8970b743462ac02ce2cc37a6a5.png

    导入文件后就会开始转换,我们等待转换后直接预览或选择【立即下载】就ok啦~

    3a15c1df1d64f5ff2db7ebadd655c33e.png

    二、其他文档转换格式

    1、PPT转图片

    将PPT演示文稿转换为图片,软件为我们提供了五种常见图片格式,供用户转换,推荐使用PNG 格式,这样保存下来的图片清晰度更高。

    3ef13cf2fd5abd2de06c3c3eae533740.png

    选择好对应的图片格式后,点击确定,软件就会提示,是要导出所有幻灯片,还是仅当前显示的幻灯片。

    01316b9df99f8f73a8f269f52691a50c.png

    2、PPT转视频

    什么?PPT还可以选择导出格式为视频?是的,我们选择另存为,将PPT导出为视频~

    f884b82648e504086e53e0865dc8d67c.png

    你还可以自己设置视频的分辨率和添加旁白,选择【文件】—【导出】—【创建视频】功能进行操作就即可。

    3、高版本转低版本

    有些人电脑上只安装了低版本PowerPoint,使用高版本制作的PPT,在低版本软件上打开就会存在兼容性问题,我们可以将PPT另存为低版本格式,软件会自动检测文档兼容性,并给我们指明问题,如果问题不会影响幻灯片演示的,直接选择【继续】等待转换完成就可以了。

    24efbe2e43e8bdf34c8cc038ade8269d.png

    看完都了解了吗?下次再碰到需要格式转换的文档,先别急着找软件工具,先试着打开【另存为】或【导出】看一下吧~

    展开全文
  • 一、一次删除文档中的所有表格WORD长文档中,经常含有很多表格。有时候,我们需要把这些表格删除。当然,我们可以一个一个的选中再删除,但,如果你的文档中的表格很多,或是表格位置不固定,这种逐一删除的方法显然...
  • 我们在浏览一些 Word 文档的时候,发现里面有些不错的图片,想全部保存下来,你会怎么操作呢?大多数朋友可能会一张一张的去另存为图片,这种效率太低下。所以,今天给大家分享两种批量导出文档中图片的方法。01另存...
  • 点击上方[word精品教程]-右上角[...]-[设为星标⭐]即可第一时间获取最新办公资讯如果你的Word中插入了几十甚至上百张图片,而且大小都不一样,为了美观,需要将所有的图片统一调整成相同的大小,你该不会一张张的...
  • 【office精华课】《一套课程学会Word+Excel+PPT》课程目录:(总时长合计:28:56:25)===================================【Word】第8课-Word宏和自动化操作 46:13-------------------------------------------------...
  • 要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...
  • Word中Mail Merge功能之后,分别保存成独立的word文件Sub BreakOnSection() Dim a As Excel.Application, ab As Excel.Workbook Set a = CreateObject("excel.application") Set ab = a.Workbooks.Open("D:\Book2....
  • 在代理中利用VBAword附件直接编辑后保存步骤:1、获得附件,并拆分到服务器临时目录里后再删除附件2、创建word对象,并打开临时目录里的文件3、编辑附件然后保存4、将附件添加到文档中并保存Sub Initialize On ...
  • VBA操作word生成sql语句

    2017-07-13 09:16:00
    项目开始一般都是用word保存下数据库的文档 但是从表单一个一个的建表实在是很困难乏味,查查资料 1、可以生成一个html或者xml,检索结构生成sql。但是这个方式也蛮麻烦 2、查到vba可以操作word读取表格。所以...
  • 想要完整提取word文件中的图片,VBA宏中并没有相应的方法,在网络中能找的方法一般就2种,一种是另存为网页,然后在files文件夹下会自动产生图片,此方法有弊端,当一个图片重复使用则只会保存一份,当然这其实正常...
  • 处理完数个word,回头一看,才发现前面...马上用vba处理一下。 把这些word放在D盘根目录。逐个遍历并打开,逐一修改保存退出。OK! 代码如下: Sub a() Dim doc As Document, myFile As String Dim a As Ran
  • EXCEL-VBA:打开word文件转换为PDF保存

    千次阅读 2020-02-27 21:34:37
    Sub a() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = New Word.Application Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\HAHA1.docx"...
  • 执行后,把BOOK1.xls打开,循环5次,a1、b1、e1数据写入word中,(注意,word也有格子,也有行列),然后保存5次到c盘下。 Sub Macro1() Dim devType As String  Dim devName As String  Dim devDes As String...
  • vba excel to word

    千次阅读 2013-05-23 18:34:05
    将excel中的数据按表格形式保存word中:(在“工具”菜单中选中"引用"项 ) 选择: MicroSoft Word 11.0 Object Libarary 代码: Public Sub ExportWord() Dim WordApp As Word.Application Set ...
  • word文件页数很多时,通过本代码,可以很方便的跳转到上一次保存退出时光标所在的位置,此方案系本人原创,未经许可,不得转载。本方案并非网上的传统方法Shift + F5,而是依赖事件触发。希望给大家的工作带来便利
  • Excel用vba自动生成word

    万次阅读 2015-02-09 10:49:28
    'excel控制word,生成新文件,插入图片和文件名,保存 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library 'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library '... Range...
  • 使用VBA代码,自定义页面数拆分大Word文件为多个小文档并指定名称保存 alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的...
  • word vba 帮助文档

    2016-11-20 11:37:38
    传上来是为了保存文档,这个在officegithub上有原版,建议到官网去下载
  • Word合并VBA代码

    2019-09-26 04:26:16
    '''用法:先创建一个目标文档,依次加入源文件,最后保存 '''by:CMooon '''2012.02.26 Dim myDialog As FileDialog Dim i As Long Const wdPageBreak = 7 ' 分页符 Set myDialog = Application.FileD...
  • 昨天和小伙伴们分享了用VBA把Excel的内容写入到Word的表格中,生成一个一个Word的方法今天和小伙伴们分享用VBA把Excel的内容写入到Word文字中间去下面的是一个Word模板文件,一般都是先做一个模板,然后把内容填到...
  • Word VBA语法高亮VBNET

    2013-06-09 09:13:40
    参考...更改了部分vba代码,适用于vbnet,修改不全,仅常用的。  保存到Normal.dotm里,新建个模块:  'script to high light code In document Private Function isKeyword(w) As Bool
  • 使用说明 功能:把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。 准备工作 把 合并文件.docm和需要合并的word文档(例如:测试用的...把filelist.txt文档合并成一个文档,保存在《合并后文档.docx》
  • 同样是Office组件,在Word里边如果想将文中插入的图片保存到本地磁盘,只要右击图片,选择“另存为图片”就可以了(图1)。但在Excel中,似乎并没有那么简单,右击图片并没有关于保存的选项(图2),虽然都是一个妈,但...
  • 一、需求说明有时我们...1.word文档截图2.excel工作表截图二、实现思路使用一张工作表保存Excel工作表中信息的字段列名和word文档表格的行列号之间的对应关系,获取word文档路径之后,逐个打开,按照映射关系提取...
  • Word VBA教程:Close方法

    千次阅读 2015-05-08 14:03:04
    应用于 Document 和 Documents对象的 Close方法。 关闭指定的一个或多个文档。 expression.Close(SaveChanges, OriginalFormat, RouteDocument) expression 必需。...指定保存文档的操作。可以是下列 WdSaveOpti
  • ① 目的电脑使用时间长,保存了极多的WORD与EXCEL文件文件版本不同(.doc .docx .xls .xlsx ......)文件内保存有重要的身份信息(身份证号、手机号......)要求所有包含身份信息的wd和xl文件进行加密操作② 代码...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 127
精华内容 50
关键字:

vba保存word