处理主题、跟踪格式、跟踪修订和跟踪移动

【e800编译】此示例演示在Microsoft Word 2010中如何使用Document类的各种属性，诸如主题，跟踪格式，跟踪修订，以及跟踪移动等。

此代码段是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编辑器中，复制这段代码到ThisDocument类中，将光标置于DocumentInformationProperties内，然后按F8单步执行代码。

将VBA和Word窗口并列在屏幕上，这样方便你可以查看单步代码的执行。

Sub DocumentInformationProperties()
Dim isFinal As Boolean
Dim doLockQuickStyleSet As Boolean
Dim doLockTheme As Boolean
Dim doTrackFormatting As Boolean
Dim doTrackRevisions As Boolean
Dim doTrackMoves As Boolean
With ActiveDocument
' Store away the current state:
isFinal=.Final
doLockQuickStyleSet=.LockQuickStyleSet
doLockTheme=.LockTheme
doTrackFormatting=.TrackFormatting
doTrackRevisions=.TrackRevisions
' This had better return true!
Debug.Print.HasVBProject
' Work with Quick Styles
.LockQuickStyleSet=False
' Now, on the Ribbon, go to the Styles
' group, and select Change Styles. Select
' Style Set, and note the list of available quick styles.
.LockQuickStyleSet=True
' Repeat the same steps, and now note that the
' menu no longer contains a list of available quick styles.
' Work with the Theme
.LockTheme=False
' On the menu, click the Page Layout menu item.
' In the Themes group, note that the Themes drop-down is available. ' You can change the document's theme.
.LockTheme=True
' Go to the same location, and note that now the Themes drop-down ' is no longer available.
.TrackRevisions=True
.TrackFormatting=True
' In the document, change a word to be bold. Note that the
' document tracks formatting changes.
' Change another word to be bold, and note that the document ' no longer tracks formatting changes.
.TrackMoves=True
' In the document, move a word. Note that the
' document tracks moves.
.TrackMoves=False
' Move another word, and note that the document
' no longer tracks moves.
' Indicate that the current document is final.
' This forces a save of the document if it's not
' already saved:
.Final=True
' Note the banner that appears in the document.
' Click Edit Anyway to continue editing.
' Put things back the way they were:
.Final=isFinal
.LockQuickStyleSet=doLockQuickStyleSet
.LockTheme=doLockTheme
.TrackFormatting=doTrackFormatting
.TrackRevisions=doTrackRevisions
.TrackMoves=doTrackMoves
' Retrieve the contents as an XML stream, using the
Dim results As String results=.WordOpenXML MsgBoxresults EndWith
EndSub。