天下苦Word久矣！Word不仅是个码字工具，还是个排版工具，而Word在排版方面经常遇到的问题，恐怕说个三天三夜都说不完！
  
  
好不容易做完了100页的活动方案，交到处女座上司那里，他告诉我：“Word里面的图片要统一尺寸，还有…必须居中！”。这不是逼人辞职吗？你早不说，现在文件做完了，你要我近百张Word图片一个个改尺寸、居中，咋不上天呢？
  
  
类似上面这种坑爹的事情，已经不是第一次发生了，在加了101天班之后，我终于凭借强大的毅力搞定了Word这个小妖精。处理近百张图片？没问题，交到我这1分钟就把你整得服服帖帖。
  
  
想告诉在座各位什么道理呢，就是像这种坑爹的事情绝对不止我一个人遇到，所以——学点Word批量处理图片的技术十分有必要！不学你就等着栽坑吧！
  
一、批量调整图片尺寸/图片居中
  
先来说说怎么快速搞定脑残上司给我添的这个堵：调整上百张图片尺寸并居中。一看这个图片数量，一张张调整居中肯定是不可能的啦，傻子才会干。所以我们要想想怎么批量处理呀，我的方法就是利用VBA。
  
操作步骤：
  
  
打开Word文件，按「Alt + F8」快捷键，会出现一个宏窗口，如下图所示：
  
  
  
接着我们就要创建宏啦，输入名称点击创建按钮即可，我这里用的名称是「setpicsize」。
  
  
  
创建宏以后就会出现一个VBA编辑窗口，输入以下图片中的代码，注意我标红色的地方，这个地方是可以更改成你想要的尺寸的，蓝色的地方是处理图片居中的，可以不用管。
  
  
  
编写好代码后，我们回到Word，运行宏，图片就按照我们的设置自动进行尺寸处理、居中啦！
  
  
怎么样？仅仅通过几行代码，就搞定了Word图片批量修改尺寸、居中的难题。如果你觉得图片上的代码看不清或者懒得自己写，可以找我要代码文件哦，免费白给！
  
二、批量压缩图片
  
Word图片数量多，一定会导致整个文档体积非常大，那怎么压缩文档大小呢？很简单。
  
操作步骤：
  
  
随便双击Word其中一张图片，点击「格式」-「压缩图片」。
  
  
  
去掉「仅应用于此图片」选项，选择「电子邮件」复选框，点击「确定」。
  
  
  
最后保存文件，你会发现文件的体积明显变小很多。
  
  
三、批量添加图片批注
  
想要批量给图片添加批注？可以这样做。
  
操作步骤：
  
  
选中任意一张图片，点击「引用」-「插入题注」。
  
  
  
点击「新建标签」，输入图片，确定。
  
  
  
自动生成图片1，后面可编辑文字。
  
  
  
复制整段文字到图片上并进行后缀修改，然后按「Ctrl + A」全选文字，右键点击图片标注处，点击「更新域」。
  
  
四、批量提取图片
  
想将Word中上百张图片都提取出来，一张张保存太费劲，怎么一次性解决？
  
方法一：另存为网页
  
操作步骤：
  
  
打开Word文件，按「F12」键打开另存为窗口，下拉项选择「网页」。
  
  
  
保存Word成网页后会生成一个文件夹，打开文件夹就可以看到Word中所有图片了。
  
  
方法二：修改文件后缀
  
操作步骤：
  
将Word文档的后缀名修改为rar或者zip，变成压缩包文件打开，找到media文件夹，里面就是Word文档的所有图片。
  
  
OK，以上就是Word图片批量处理的常见操作啦！你知道多少个呢？有空的话赶紧学学吧，有益无害哦！
  
往期推荐
  
禁止偷改！1分钟搞定Word防身术！
  
1分钟把500张照片变视频？太绝了！
  
老师傅传大招，1分钟全网文档任意下
  
1分钟GET微信表情包的N个正确玩法
  
  
  
  
觉得有用这里打个卡
 
 

 
 
 
  
如何将Word中的表格另存为图片呢？本期Word妹与大家分享3个快速解决的办法。
  
第一种：将表格区域转换为图片
  
选中表格并复制，之后点击开始——剪贴板——粘贴——选择性粘贴，随后在打开的界面中选中【图片】按钮，点击确定，最后再次选中图片，右击选择【另存为图片】即可。
  

  
第二种：借助微信或QQ等聊天软件完成
  
先将Word表格数据复制到Excel中，随后再复制到微信或QQ就能将表格以图片的格式发给对方或选中图片另存即可保存。
  

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

  
PS：如果扩展名没有显示出来，该怎么办？
  
打开一个文件夹，点击【查看】，在【显示 / 隐藏】一栏中，勾选【文件扩展名】即可。
  

  
以上就是今天分享的3种将Word表格转换为图片的技巧，若有什么问题，欢迎在下方留言。
  
  技巧推荐
  
文本框
书签
批注
水印
分栏
脚注
题注
目录
合并
修订
表格
图片
项目符号
编号
拼音指南
带圈字符
页码
邮件合并
桌签
……
  
想要学习更多的Word技巧，可以点击文末阅读原文获取全套Word视频教程↓
 
 
 

 

  
 
 
编按：相信许多小伙伴都有过一次性需要编辑几十个甚至上百个表格的经历，当时可能就是一个个地调整，劳心劳力还劳神…今天小编就教大家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 
 
第四步：点击三角形的运行按钮运行代码，最小化代码窗口。此时文档中的所有表格已经被全部选中(注意，此时鼠标不要进行其他操作)。然后，我们只需在【表设计】-【表格样式】下拉列表中选择需要的样式即可。
 

  
 
 
此时，即可看到文档中所有的表格样式都变成了刚选择的样式效果啦！
 
技巧提示：如果你按下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界面，即可看到文档中的表格都已一次性全部删除了。
 

  
 
 
需要注意的是：当保存带有VBA的文档时，会弹出一个提示对话框，此时，一定选择“否”。然后，将其一定要保存为“启用宏的文档”*.docm“，否则宏会丢失。
 
* * * *部落窝教育-wordVBA应用技巧* * * *
 
原创：部落窝教育(未经同意，请勿转载)
 
更多教程：部落窝教育(www.itblw.com)
 
微信公众号：worditblw

 要将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中怎样把不同颜色的下划线文字变成对应的颜色