vba word 查找_知乎高赞：Word有哪些好用的技巧，让你相见恨晚？-CSDN博客

在使用Word过程中，若是掌握一些批量技巧，可以让你工作效率翻番，本期Word妹与大家分享几个超级好用的Word技巧。

1、批量对齐图片

选中全文，按Ctrl+H打开查找和替换对话框，之后在查找中输入代码：^g(表示图形)，在替换中选择格式——段落——对齐方式——居中对齐即可。

2、批量对齐名字

选中文本，按Ctrl+H打开查找和替换对话框，在查找中输入代码：?>，并且勾选使用通配符，之后点击查找，然后在以下选项中查找，选择【当前所选内容】，随后关闭界面，点击开始——段落——中文版式——调整宽度。

3、批量删除分隔符

为了排版需要，往往会添加分隔符，那如何批量删除这些分隔符呢？

按Ctrl+A选中全文，之后按Ctrl+H打开查找和替换对话框，在查找文本框中勾选使用通配符号，之后点击更多——特殊格式——分页符或分节符(PS：可以直接手动输入代码：^m)，在替换为中不输入任何内容，点击全部替换即可。

4、批量删除空行

选中区域，按Ctrl+H打开查找和替换，在查找中输入代码^13{2,}，在替换为中输入代码^13，勾选使用通配符，点击全部替换即可。

5、批量在单元格数字前添加人民币

如何在单元格中批量添加人民币？

打开查找和替换的界面，在查找中输入“(

6、批量拆分文本和数字

选中需要拆分的内容区域，按Ctrl+H打开查找和替换，在查找中输入([0-9]{5,6})，在替换为输入^&^t，并且勾选使用通配符，随后点击全部替换即可操作。

说明：

[0-9]：表示0到9之间的任意数字

{5,6}：表示出现的5个或6个数字

()：是一个表达式，在这里我们将其看做一个整体

^&：要查找的内容

^t：制表位

^&^t：表示在所查找内容后面添加制表位。

7、删除多个文档的页眉页脚

如何批量删除上百个Word文档的页眉页脚呢？

这里需要借用VBA来实现。

新建一个空白文档，点击开发工具——Visual Basic，在打开的界面中点击插入——模块，然后复制以下代码：

Sub 批量删除页眉页脚()

'此代码功能为列出指定文件夹中所有选取的WORD文件全路径名

Dim myDialog As FileDialog, oDoc AsDocument, oSec As Section

Dim oFile As Variant, myRange As Range

On Error Resume Next

'定义一个文件夹选取对话框

Set myDialog =Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear '清除所有文件筛选器中的项目

.Filters.Add "所有Word文件", "*.doc,*.docx", 1 '增加筛选器的项目为所有Word文件

.AllowMultiSelect = True '允许多项选择

If .Show = -1 Then '确定

For Each oFile In .SelectedItems '在所有选取项目中循环

Set oDoc =Word.Documents.Open(FileName:=oFile, Visible:=False)

For Each oSec In oDoc.Sections '文档的节中循环

Set myRange =oSec.Headers(wdHeaderFooterPrimary).Range

myRange.Delete '删除页眉中的内容

myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle= wdLineStyleNone '段落下边框线

Set myRange =oSec.Footers(wdHeaderFooterPrimary).Range

myRange.Delete '删除页脚中的内容

oDoc.Close True

End If

End With

End Sub

点击运行，之后会跳出相应的对话框，然后选择要清除的文档打开即可批量删除页眉页脚。

技巧推荐

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

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