java生成word宏_在Word中创建宏来处理格式样式

您是否对在 Word 文档中同时处理多种不同的格式样式感到厌烦？那么就来了解一下如何创建三个宏以帮助您管理 Word 文档样式。

我既是作者也是编辑，每个月同事都会发给我几篇具有特殊格式样式的 Microsoft Word 文档，而且似乎每篇文档都有不同的格式样式。“样式”是一种格式类型，用于 Word 文档中的特定内容部分。例如，同事一周内发给我 18 篇需要以某种方式进行样式处理的 Word 文档。这项工作很适合由宏来完成！

本专栏中，我将向您介绍如何创建三个宏以帮助您管理 Word 文档样式。

列出文档样式

要处理文档样式，先要了解文档中存在哪些样式。Word 2002 中的“样式和格式”任务窗格很有用，它列出了一些可用的样式，但有时在单独的文档中列出打开文档的所有样式会更方便。在下面第一个示例中，我将介绍如何创建并运行宏，以列出打开的 Word 文档中所有可用的样式：

启动 Microsoft Word 2002 并打开要列出其样式的文档。

在“工具”菜单上，指向“宏”，然后单击“宏”。

在“宏的位置”下拉框中，单击“Normal.dot(共用模板)”。

在“宏名”框中，键入“ListStyles”，然后单击“创建”。将显示 Microsoft Visual Basic? 编辑器。

找到以下代码：

Sub ListStyles()

'

' ListStyles Macro

' 宏在 {日期} 由 {姓名} 创建

'

End Sub

如下所示编辑该代码：

Sub ListStyles()

'

' ListStyles Macro

' 宏在 {日期} 由 {姓名} 创建

'

' 用途：将活动文档中的所有样式

' 打印到新 Word 文档中。

Dim strTitle As String

Dim astrStyles() As String

Dim objStyle As Style

Dim objDocument As Word.Document

Dim intCount As Integer

' 获取活动 Word 文档的标题。

strTitle = _

ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)

intCount = 1

' 将活动文档中的所有样式存储到内存中，

' 无论样式是否在使用。

For Each objStyle In ActiveDocument.Styles

ReDim Preserve astrStyles(intCount)