使用QuickStyleSets应用快速样式集

发布时间：2012-09-27 16:52:02 来源：文档文库

小中大

字号：

手机查看

【e800编译】此示例演示如何在Microsoft Word 2010中应用快速样式集。

此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。

每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。

Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。

实例代码

在一个新文档键入以下文本，然后按Enter键：

= rand（1,5）

这会在当前文档中插入各包含5个句子的1个段落。然后在VBA编辑器中，创建一个新模块并复制以下代码，将光标放在其中并按F8单步执行代码。并列放置VBA和Word窗口，这样你可以查看单步代码的动作。

注意：在Windows 7中快速样式集以.dotx文件形式存储在此文件夹：C:\Users\\AppData\Roaming\Microsoft\QuickStyles

从该文件夹中删除此文件，从快速样式列表中移除。当然，在其他操作系统中，或者在Office 2010非默认安装路径的情况下，文件的位置会有所不同。

Sub TestQuickStyles()

' Word 2010 adds the ability to apply a quick style set. Previously

' you could only save a quick style set.

' Apply one of the built-in style sets.

ActiveDocument.ApplyQuickStyleSet2 "Elegant"

' Modify the style set:

With ActiveDocument.Paragraphs(1)

.LineSpacing = 20

.LeftIndent = 20

End With

ActiveDocument.SaveAsQuickStyleSet "New Style"

' Load another style set:

ActiveDocument.ApplyQuickStyleSet2 "Word 2010"

' Re-apply your new style set:

ActiveDocument.ApplyQuickStyleSet2 "New Style"

End Sub

文档为doc格式

相

关

案

例