Fonts 如何从MS Word 2010 QuickStyle集或模板导出样式名称和定义？
Micro：我想从单词模板/样式集中查看样式名称及其特征的列表 宏：我办公室的其他人定义了样式集和具有多种格式的模板。除了打开文档、应用样式和对每个样式使用样式检查器之外，是否有办法查看样式定义包含的内容，以便我可以决定是尝试调整样式，还是放弃样式并从头开始 我正在Windows7上使用Word 2010 桌面支持团队已经定义了一个名为Company IT Style的样式集，它通过用户的templates文件夹推送给网络上的每个用户 C:\Users\%MyName%\AppData\Roaming\Microsoft\QuickStyles\Company IT QuickStyle Set.dotx 我想导出此样式集中包含的样式名称列表，以及每个样式的定义/特征，如使用样式列表中的“修改样式”按钮显示的 例如：Fonts 如何从MS Word 2010 QuickStyle集或模板导出样式名称和定义？,fonts,formatting,ms-word,styles,export,Fonts,Formatting,Ms Word,Styles,Export,Micro：我想从单词模板/样式集中查看样式名称及其特征的列表 宏：我办公室的其他人定义了样式集和具有多种格式的模板。除了打开文档、应用样式和对每个样式使用样式检查器之外，是否有办法查看样式定义包含的内容，以便我可以决定是尝试调整样式，还是放弃样式并从头开始 我正在Windows7上使用Word 2010 桌面支持团队已经定义了一个名为Company IT Style的样式集，它通过用户的templates文件夹推送给网络上的每个用户 C:\Users\%MyName%\AppData\Roam
正常：
字体：（默认）泰晤士报新罗马版，第11页，左
行距：单个，后间距：6磅，寡妇/孤儿控件，样式：快速样式 标题1:
字体：Arial黑色，16磅，缩进：
左：0“
悬挂：0.3英寸空间 前：18点，后：18点，继续下一步，第1级
制表位：0.3“，列表制表符，轮廓编号+级别：1+编号样式：1,2,3，…+起始位置：1+对齐：左+对齐位置：0”+制表位后：0.3”+缩进位置：0.3”，样式：链接，快速样式
基于：正常
以下样式：正常 Word Tips新闻稿网站上有一个宏，可以显示模板设置（纸张大小、方向等），但我不知道如何调整它来显示样式格式特征 我正在寻找一种从给定样式集导出信息的方法，理想情况下是将信息导出到一个Word表，该表将显示样式名称（以该样式格式化），然后是该样式元素的结构化列表。或者更好的方法是使用XML 是否有现成的工具来执行此操作 我是Word的半权威用户——可能是我们部门最高级的用户，但无论如何都不是专家。我可以处理宏，但VBA经常让我感到困惑 感谢您的帮助或指点。
詹姆斯 编辑：MSMVP的苏珊娜·巴恩希尔部分回答了我的问题： 简单的回答是，您可以通过在后台“打印”选项卡上的“打印所有页面”下拉列表中选择“属性”下的“样式”来打印此信息。要将此“打印”为文档，您可以>将其打印到Microsoft XPS document Writer或PDF打印机
但是，这只会产生文档中正在使用的样式。由于我要检查的一些模板和样式集非常广泛，我不希望创建文档并将每个样式指定给段落或字符。呈现，以便其他具有相同问题的人可以使用答案 正如OP中提到的，我正在Windows7上使用Word 2010 “文件->打印”对话框中的“打印内容”下拉列表提供了“打印样式”选项，但该选项仅打印该文档中当前使用的样式的定义 我得到了以下宏，它在Word2007和2010中工作。正如作者杰西卡·韦斯曼所说 “这是我在Word 2007中使用的宏，用于列出文档中所有段落和字符样式的描述。它跳过表格样式和列表样式。它列出文档中的所有样式，包括未使用的样式 如果某个样式基于另一个样式，则该样式的描述仅包括与基础样式不同的内容。幸运的是，基础样式是样式描述中的一项 如果要查看所有类型的所有样式，请注释掉If语句和End If语句 注意事项：它还没有经过压力测试，完全是原样，没有任何保证
- 杰西卡“
Sub describeAllStylesWeCareAbout()
' by Jessica Weissman
Dim docActive As Document
Dim docNew As Document
Dim styleLoop As Style
Set docActive = ActiveDocument
Set docNew = Documents.Add
For Each styleLoop In docActive.Styles
If styleLoop.Type < 3 Then
' show only character and paragraph styles, not list or table styles
With docNew.Range
.InsertAfter Text:=styleLoop.NameLocal & Chr(9) _
& styleLoop.Description
.InsertParagraphAfter
.InsertParagraphAfter
End With
End If
Next styleLoop
End Sub
子描述AllStylesWebCareAuto（）
杰西卡·韦斯曼
将文档作为文档激活
新文档
Dim styleLoop作为样式
设置docActive=ActiveDocument
Set docNew=Documents.Add
对于docActive.Styles中的每个styleLoop
如果styleLoop.Type<3，则
'仅显示字符和段落样式，不显示列表或表格样式
有新的。范围
.InsertAfter Text:=styleLoop.NameLocal&Chr（9）\u
&styleLoop.Description
.在后面插入段落
.在后面插入段落
以
如果结束
下一个样式循环
端接头
JP来自您的编辑：“但是，这只会产生文档中正在使用的样式。由于我要检查的一些模板和样式集非常广泛，我宁愿不必创建文档并将每个样式指定给段落或字符。”-->。如果您打开实际的样式表模板并执行此操作，则页面中根本不需要任何文本，它将打印所有可用的样式。这是一个很棒的宏！谢谢分享。它非常适合比较两个文档之间的样式。