精华内容
下载资源
问答
  • 天下苦Word久矣!Word不仅是个码字工具,还是个排版工具,而Word在排版方面经常遇到的问题,恐怕说个三天三夜都说不完!好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:“Word里面的图片要统一尺寸...
    e5095fa57620d2a89fa9417f0bd50b77.gif

    天下苦Word久矣!Word不仅是个码字工具,还是个排版工具,而Word在排版方面经常遇到的问题,恐怕说个三天三夜都说不完!

    40d12d62d9fa988626bb96b91f6d9597.gif

    好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:“Word里面的图片要统一尺寸,还有…必须居中!”。这不是逼人辞职吗?你早不说,现在文件做完了,你要我近百张Word图片一个个改尺寸、居中,咋不上天呢?

    8fe36c2f3d4d40d1db89699252882ae5.png

    类似上面这种坑爹的事情,已经不是第一次发生了,在加了101天班之后,我终于凭借强大的毅力搞定了Word这个小妖精。处理近百张图片?没问题,交到我这1分钟就把你整得服服帖帖。

    d2bad14f99024c56bd8a6fd7258f190a.gif

    想告诉在座各位什么道理呢,就是像这种坑爹的事情绝对不止我一个人遇到,所以——学点Word批量处理图片的技术十分有必要!不学你就等着栽坑吧!

    一、批量调整图片尺寸/图片居中

    先来说说怎么快速搞定脑残上司给我添的这个堵:调整上百张图片尺寸并居中。一看这个图片数量,一张张调整居中肯定是不可能的啦,傻子才会干。所以我们要想想怎么批量处理呀,我的方法就是利用VBA。

    操作步骤:

    8f0b248a76b0d34568487ca81e8b99b9.png

    打开Word文件,按「Alt + F8」快捷键,会出现一个宏窗口,如下图所示:

    e74969bcdb64f4d6cbe1e4c9ad0c0e6b.gif eaf0290e856aadb6c5df1db519eba5de.png

    接着我们就要创建宏啦,输入名称点击创建按钮即可,我这里用的名称是「setpicsize」

    70eee16e5ff77a28f3009c65a9b0e7b7.png a7c5e21dfa59b2f9bbf9ac08e057c95a.png

    创建宏以后就会出现一个VBA编辑窗口,输入以下图片中的代码,注意我标红色的地方,这个地方是可以更改成你想要的尺寸的,蓝色的地方是处理图片居中的,可以不用管。

    133551ad16a07e342bb97a1ada9e93ae.png 5f05ecd9ccd1ee9740670c0937b6760e.png

    编写好代码后,我们回到Word,运行宏,图片就按照我们的设置自动进行尺寸处理、居中啦!

    1f0cd91546d764ca4bc39e08d95d942e.gif

    怎么样?仅仅通过几行代码,就搞定了Word图片批量修改尺寸、居中的难题。如果你觉得图片上的代码看不清或者懒得自己写,可以找我要代码文件哦,免费白给!

    二、批量压缩图片

    Word图片数量多,一定会导致整个文档体积非常大,那怎么压缩文档大小呢?很简单。

    操作步骤:

    8f0b248a76b0d34568487ca81e8b99b9.png

    随便双击Word其中一张图片,点击「格式」-「压缩图片」

    6acfd95db96dd1b15de923b4c2af2725.png eaf0290e856aadb6c5df1db519eba5de.png

    去掉「仅应用于此图片」选项,选择「电子邮件」复选框,点击「确定」

    c86ded02d451bf60e2935f0989b3f7a1.png a7c5e21dfa59b2f9bbf9ac08e057c95a.png

    最后保存文件,你会发现文件的体积明显变小很多。

    c266e71fef58e220e9f27660ae80d5a6.png

    三、批量添加图片批注

    想要批量给图片添加批注?可以这样做。

    操作步骤:

    8f0b248a76b0d34568487ca81e8b99b9.png

    选中任意一张图片,点击「引用」-「插入题注」

    f0f75b051f0a3034c3c5de127f73199f.png eaf0290e856aadb6c5df1db519eba5de.png

    点击「新建标签」,输入图片,确定。

    c10904e46d15348a971e2c4a7d554569.png a7c5e21dfa59b2f9bbf9ac08e057c95a.png

    自动生成图片1,后面可编辑文字。

    53a015f92b3bcee8879080e91a7085f3.png 5f05ecd9ccd1ee9740670c0937b6760e.png

    复制整段文字到图片上并进行后缀修改,然后按「Ctrl + A」全选文字,右键点击图片标注处,点击「更新域」

    f80c4e7605ca9225948f3e4eb6dc0335.png

    四、批量提取图片

    想将Word中上百张图片都提取出来,一张张保存太费劲,怎么一次性解决?

    方法一:另存为网页

    操作步骤:

    8f0b248a76b0d34568487ca81e8b99b9.png

    打开Word文件,按「F12」键打开另存为窗口,下拉项选择「网页」。

    e3948a06ca5d55fbfcc984c959b51717.png eaf0290e856aadb6c5df1db519eba5de.png

    保存Word成网页后会生成一个文件夹,打开文件夹就可以看到Word中所有图片了。

    5517410e048d49c3aaf49dc4d25dff84.gif

    方法二:修改文件后缀

    操作步骤:

    将Word文档的后缀名修改为rar或者zip,变成压缩包文件打开,找到media文件夹,里面就是Word文档的所有图片。

    036cb4272e84861cf804843f8b0bc547.png

    OK,以上就是Word图片批量处理的常见操作啦!你知道多少个呢?有空的话赶紧学学吧,有益无害哦!

    往期推荐

    禁止偷改!1分钟搞定Word防身术!

    1分钟把500张照片变视频?太绝了!

    老师傅传大招,1分钟全网文档任意下

    1分钟GET微信表情包的N个正确玩法

    3ea04aa04716d1c53b816a34c770b28f.png 6fee9e5404595d583b10425797755e8e.gif 9a68aa6fe24f2c11249122c4dfead458.gif

    觉得有用这里打个卡

    展开全文
  • 如何将Word中的表格另存为图片呢?本期Word妹与大家分享3个快速解决的办法。第一种:将表格区域转换为图片选中表格并复制,之后点击开始——剪贴板——粘贴——选择性粘贴,随后在打开的界面中选中【图片】按钮,...

    如何将Word中的表格另存为图片呢?本期Word妹与大家分享3个快速解决的办法。

    第一种:将表格区域转换为图片

    选中表格并复制,之后点击开始——剪贴板——粘贴——选择性粘贴,随后在打开的界面中选中【图片】按钮,点击确定,最后再次选中图片,右击选择【另存为图片】即可。

    66deab725da3b0e67073b2f615b29e1a.gif

    第二种:借助微信或QQ等聊天软件完成

    先将Word表格数据复制到Excel中,随后再复制到微信或QQ就能将表格以图片的格式发给对方或选中图片另存即可保存。

    f1c59b16d72db82604108be0e2e9647b.gif

    第三种:将Word表格文档改为压缩文件

    如果遇到图片数量多的情况,可以先利用【复制为图片】功能,将需要导出的表格区域转化为图片,随后将文档的后缀名改为压缩文件rar格式,之后双击打开压缩文件,依次双击「Word」-「Media」,就能看到已经保存好的图片了。

    0ab88f59e39e6d579cc329945f06d372.gif

    PS:如果扩展名没有显示出来,该怎么办?

    打开一个文件夹,点击【查看】,在【显示 / 隐藏】一栏中,勾选【文件扩展名】即可。

    899b17ebd204a1c5c7ba8dfc0a89fb0a.png

    以上就是今天分享的3种将Word表格转换为图片的技巧,若有什么问题,欢迎在下方留言。

     ab7ad89712b96ef262ca9d7a07782845.gif 技巧推荐

    文本框书签批注水印
    分栏脚注题注目录
    合并修订表格图片
    项目符号编号拼音指南带圈字符
    页码邮件合并桌签……

    想要学习更多的Word技巧,可以点击文末阅读原文获取全套Word视频教程

    展开全文
  • 编按:相信许多小伙伴都有过一次性需要编辑几十个甚至上百个表格的经历,当时可能就是一个个地调整,劳心劳力还劳神…今天小编就教大家2个Word VBA小技巧,几秒钟就能帮助大家搞定上百个表格,赶紧和小编一起来看看...
    4dc14c11f9fd8305329dcd7c886bc4fc.png

    编按:相信许多小伙伴都有过一次性需要编辑几十个甚至上百个表格的经历,当时可能就是一个个地调整,劳心劳力还劳神…今天小编就教大家2个Word VBA小技巧,几秒钟就能帮助大家搞定上百个表格,赶紧和小编一起来看看吧~

    * * * * * * * * * * * *

    在编辑Word长文档时,一篇文档中经常含有许多表格,如果要修改所有表格的样式,或者让我们删除文档中所有表格,你会怎么办呢?

    逐一设置样式?或逐一删除表格?这些方法显然都不可取。

    有什么好的方法能够一次性编辑文档中所有的表格呢?今天,小编为大家分享2个 VBA 技巧,就可以帮助我们一次性批量搞定表格,快且专业~

    01、一次修改文档中所有表格样式

    美化文档,我们通常会将文档中的所有表格格式样式统一,如何快速快速搞定,这里小编教大家一招批量设置表格样式的技巧。

    第一步:直接按Alt + F11键,打开VBA代码窗口。

    第二步:在打开的VBA窗口中,右击Thisdocument,在弹出的菜单中选择“插入”-“模块”选项。

    第三步:此时,会打开模块1(代码)窗口,将以下代码复制粘贴至模块中:

    Sub 批量修改表格()

    Dim tempTable As Table

    Application.ScreenUpdating = False

    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

    MsgBox "文档已保护,此时不能选中多个表格!"

    Exit Sub

    End If

    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

    For Each tempTable In ActiveDocument.Tables

    tempTable.Range.Editors.Add wdEditorEveryone

    Next

    ActiveDocument.SelectAllEditableRanges wdEditorEveryone

    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

    Application.ScreenUpdating = True

    End Sub

    第四步:点击三角形的运行按钮运行代码,最小化代码窗口。此时文档中的所有表格已经被全部选中(注意,此时鼠标不要进行其他操作)。然后,我们只需在【表设计】-【表格样式】下拉列表中选择需要的样式即可。

    7834e3e4cce442aedb0c2c8f0e63653e.gif

    此时,即可看到文档中所有的表格样式都变成了刚选择的样式效果啦!

    技巧提示:如果你按下Alt+F11键打不开VBA 窗口,则可点击【文件】-【选项】,在打开的"Word选项”对话框中的“自定义功能区”中勾选“开发工具”复选框。返回Word界面,展开“开发工具”菜单,在最左侧即可看到“visual Basic"编辑器按钮。

    02、一次删除文档中所有表格

    有时候,文档中可能并不需要配表格,那么,我们就要将所有表格删除。如何快速删除文档中所有表格呢?同样或借助VBA代码来实现。

    第一步:按Alt+F11键,打开VBA窗口代码。

    第二步:在打开的VBA窗口中,右击Thisdocument,在弹出的菜单中选择“插入”-“模块”选项。

    第三步:在VBA窗口中输入或复制以下代码:

    Sub Removetables()

    Dim oTable As Table

    For Each oTable In ActiveDocument.Tables

    oTable.Delete

    Next oTable

    End Sub

    第四步:运行代码,最小化代码窗口。返回Word界面,即可看到文档中的表格都已一次性全部删除了。

    e27477383766a4da9e356ed7cfe48a66.gif

    需要注意的是:当保存带有VBA的文档时,会弹出一个提示对话框,此时,一定选择“否”。然后,将其一定要保存为“启用宏的文档”*.docm“,否则宏会丢失。

    * * * *部落窝教育-wordVBA应用技巧* * * *

    原创:部落窝教育(未经同意,请勿转载)

    更多教程:部落窝教育(www.itblw.com)

    微信公众号:worditblw

    展开全文
  • word文件页数很多时,通过本代码,可以很方便的跳转到上一次保存退出时光标所在的位置,此方案系本人原创,未经许可,不得转载。本方案并非网上的传统方法Shift + F5,而是依赖事件触发。希望给大家的工作带来便利
  • 使用说明 功能:把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。 准备工作 把 合并文件.docm和需要合并的word文档(例如:测试用的...把filelist.txt文档合并成一个文档,保存在《合并后文档.docx》
  • 要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...

     要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。

    逐页遍历word文档可以使用word的定位功能。

    代码如下:

    Sub SplitToOnePage()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    =====================================
    可以保存任何内容
    
    Option Explicit
    
    Sub SplitPagesAsDocuments()
    	Dim oSrcDoc As Document
    	Dim oNewDoc As Document
    	Dim strSrcName As String
    	Dim strNewName As String
    	Dim oRange As Range
    	Dim nIndex As Integer
    	Dim fso As Object
    	Set fso     = CreateObject("Scripting.FileSystemObject")
    	Set oSrcDoc = ActiveDocument
    	Set oRange  = oSrcDoc.Content
    	oRange.Collapse wdCollapseStart
    	oRange.Select
    
    	For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    		oSrcDoc.Bookmarks("\page").Range.Copy
    		oSrcDoc.Windows(1).Activate
    		Application.Browser.Target = wdBrowsePage
    	Application.Browser.Next
    
    	strSrcName                  = oSrcDoc.FullName
    	strNewName                  = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    	fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
    	Set oNewDoc                 = Documents.Add
    	Selection.Paste
    	oNewDoc.SaveAs strNewName
    	oNewDoc.Close False
    Next
    
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束!"
    End Sub
    ==========================================
    可以保存任何内容
    
    Sub QQ1722187970()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    ===========================================
    只能保存文字 
    Option Explicit
    
    Sub SaveParagraph()
    	Dim i As Integer
    	Dim PageNo As Integer
    	Dim aDoc As Document
    	Dim myDoc As Document
    	Dim sPage As String
    	Set myDoc              = ThisDocument
    	'文档视图设定为页面方式
    	ActiveWindow.View.Type = wdPageView
    	myDoc.Repaginate
    	'获得文档页数并赋值给变量 PageNo
    	PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    
    	For i = 1 To PageNo
    		myDoc.Activate
    		' 光标移动到文档某一页的开始
    		Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Name: = i
    		' 全选文档某一页的所有内容
    		Selection.EndKey Unit: = wdStory, Extend: = wdExtend
    		sPage = Selection.Text
    		'保存到一个文件中
    		Set aDoc = Documents.Add
    		aDoc.Content.Text = sPage
    		aDoc.SaveAs FileName: = "c:\" & CInt(i) & ".doc"
    		aDoc.Close
    	Next
    
    End Sub
    

    word中怎样把不同颜色的下划线文字变成对应的颜色

    展开全文
  • 执行后,把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代码把一个多页的word拆分成任意页数的多个文档,可直接粘贴运行。
  • 想要完整提取word文件中的图片,VBA宏中并没有相应的方法,在网络中能找的方法一般就2种,一种是另存为网页,然后在files文件夹下会自动产生图片,此方法有弊端,当一个图片重复使用则只会保存一份,当然这其实正常...
  • Excel VBA 操作 Word(入门篇)

    万次阅读 多人点赞 2018-07-03 13:14:56
    原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人。 一、新建Word引用需要首先创建一个对 Word Application 对象的引用。在VBA中,工具-引用,选取...
  • 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"...
  • VBA脚本可以实现从word文档的多个表中提取数据,每个表格的信息提取到一行。 Sub word2els() Set wdApp = CreateObject(“kwps.application”) path_ = ThisWorkbook.Path wdApp.Documents.Open (path_ & “”...
  • 处理完数个word,回头一看,才发现前面...马上用vba处理一下。 把这些word放在D盘根目录。逐个遍历并打开,逐一修改保存退出。OK! 代码如下: Sub a() Dim doc As Document, myFile As String Dim a As Ran
  • 今天女朋友工作上出了点麻烦,就是要向Word中批量添加图片以及整理成Excel数据的图片名。其中图片名需要设置段落和文字格式,有些图片还是共享一个图片名。这可是个繁琐而枯燥的工作。我一直相信重复劳动是对人这...
  • word vba 帮助文档

    2016-11-20 11:37:38
    传上来是为了保存文档,这个在officegithub上有原版,建议到官网去下载
  • VBA-EXCEL:控制WORD文件

    千次阅读 2018-12-06 14:59:00
    Dim WordApp As Object '定义Word Application Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object '定义文档 Set WordDoc = WordApp.Documents.Open("...
  • office应用程序是可以相互访问的,比如可以把excel的数据导出到word中 step1: 首先要引用word工程对象,在excelvba中依次点击 工具——》引用——》...vba从excel中导出表格数据和图表到新word文档" title="exce
  • 今天我们为大伙带来一段Word VBA,使用VBA可以完成很多依靠Word无法完成的任务,其功能强大,高效、有灵活性。1录制、运行宏宏是由一系列Word命令和指令组合在一起形成的单独命令,以实现任务执行的自动化。所以宏是...
  • VBA代码设置Word自动保存的步骤.docx
  • (转)Excel VBA 操作 Word(入门篇)

    千次阅读 2018-04-14 20:45:00
    本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人。 一、新建Word引用 需要首先创建一个对 Word Application 对象的引用。在VBA中,工具-引用,选取...
  • 编按:相信许多小伙伴都有过一次性需要编辑几十个甚至上百个表格的经历,当时可能就是一个个地调整,劳心劳力还劳神…今天小编就教大家2个Word VBA小技巧,几秒钟就能帮助大家搞定上百个表格,赶紧和小编一起来看看...
  • 通过VBAword中的表格导入到excel中

    万次阅读 2018-04-09 15:43:41
    通过VBAword中的表格导入到excel中 由于项目需要,需要将word中的表格按照格式导入到excel中,所以通过在word中写VBA程序的方式将word的内容导出到excel中。1、添加“开发工具”选项卡 打开word(我的是office...
  • 通过 vba 在 excel 中调用 word

    千次阅读 2020-06-24 15:26:12
    Sub call_word() Dim doc As New Word.Application '前期绑定。使用这种方法,会有自动提示 'Set doc = CreateObject("word.application") '后期绑定。创建 word 对象 doc.Visible = True Set wd = doc....
  • VBA+批处理实现WORD转EXCEL数据分析开发日志WORD程序转EXCEL并处理数据项目目的开发日志2020-09-01(批处理)开发日志V1.2.1 2020-09-05业务流程分以下几步:当前版主要的问题当前版次要的问题技术小结2020-09-05 WORD...
  • 不同格式的word文档合并为一个文件。 问题: 文件汇编,需要将70多个文件汇编成一个到一个文件里。最终汇编的方式是用word--插入--对象--文件中的文字。 但是由于原始文件有的设置了自动编号。插入后在合并后的...
  • 直接复制到宏代码编辑器中保存后即可正常使用。为了运行方便可以把该宏添加到word左上角的自定义快速访问工具栏中点击运行,甚至更高级点,放到自己的自定义功能区中。 后期我将整理并分享针对图形对象大小批量处理...
  • 使用VBAWord或Excel文档窗口置顶

    千次阅读 2019-05-13 16:02:39
    在使用Word或Excel时有时需要让窗口总是显示在最前面而不被别的窗口挡住,虽然Word或Excel并没有提供这样的功能,但是在VBA中使用API函数“SetWindowPos”可以让窗口总在最前面,具体操作如下: 1. 打开需要置顶的...
  • VBA读取word中的内容到Excel中

    千次阅读 2019-06-28 15:53:00
    VBA读取word中的内容到Excel中,这类代码的思路都是一致的,包括ADO、SQL、DELPHI、VB…… 先声明、创建一个对象 → 用此对象打开需要操作的文件、数据库 → 从头到尾循环一遍做某事 → 关闭文件 → 关闭对象 → ...
  • 使用VBA代码,自定义页面数拆分大Word文件为多个小文档并指定名称保存 alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,118
精华内容 1,247
关键字:

vba保存word