WORD中的VBA操作

为什么会有这篇文章

最近用WORD比较多,发现VBA的用处真的是很方便,可以批量做很多手工很麻烦甚至是无法完成的功能。

系列文档

  1. WORD好用的技巧
  2. WORD中的VBA操作

前置条件

WORD

常用的VBA记录一下

至于怎么启用WORD中的宏操作,简单说一下,依次点击 文件 - 选项 - 信任中心 - 右侧信任中心设置 - 选择启用所有宏
然后在视图选项卡中,最右侧可以见到。

批量删除文档中没用的样式

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub DeleteUnusedStyles()
Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles
'Only check out non-built-in styles
If oStyle.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = oStyle.NameLocal
.Execute FindText:="", Format:=True
If .Found = False Then oStyle.Delete
End With
End If
Next oStyle
End Sub

批量删除空白表格

1
2
3
4
5
6
Sub Removetables ()
Dim oTable As Table
Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub

参考链接

  1. How To Remove/Delete All Tables From A Document In Word
  2. Removing Unused Styles
分享到