如何从MS Word 2010快速样式集或模板导出样式名称和定义



Micro:我想从Word模板/样式集中查看样式名称及其特征的列表。

宏:我办公室的其他人已经用各种格式定义了样式集和模板。除了打开文档、应用样式并对每个样式使用样式检查器之外,有没有一种方法可以查看样式定义包括什么,这样我就可以决定是尝试调整样式,还是废弃它并从头开始?

我使用的是Windows 7上的Word 2010。

桌面支持团队定义了一个名为"公司IT风格"的风格集,通过用户的模板文件夹将其推送给网络上的每个用户。

C: \用户\%MyName%\AppData\Roaming\Microsoft\QuickStyle \公司IT快速样式集.dotx

我想导出此样式集中包含的样式名称的列表,以及每个样式的定义/特征,例如使用"样式"列表中的"修改样式"按钮显示的。

例如:
普通:
字体:(默认)Times New Roman,11 pt,左
行距:单,后空格:6 pt,Widow/Orpan控件,样式:Quick Style

标题1:
字体:Arial黑色,16磅,缩进:
左:0">
悬挂:0.3",空格之前:18 pt,之后:18 pt与下一级保持,级别1
制表位停止:0.3",列表制表位,大纲编号+级别:1+编号样式:1、2、3、…+起始位置:1+对齐:左+对齐位置:0"+制表位在后:0.3"+缩进位置:0.3",样式:链接,快速样式
基于:正常
以下样式:正常

Word Tips新闻稿网站上有一个宏,它将显示模板设置(纸张大小、方向等),但我不知道如何调整它以显示样式格式特征。

http://word.tips.net/T010117_Listing_the_Settings_in_a_Template.html

我正在寻找一种方法来导出给定样式集的信息,最好是导出到一个Word表中,该表将显示样式名称(以该样式格式化),然后是该样式元素的结构化列表。或者更好的是,到XML。

有现成的工具吗?

我是Word的半高级用户,可能是我所在部门最高级的用户,但无论如何都不是专家。我可以处理宏,但VBA经常让我感到困惑。

感谢任何帮助或建议
James

编辑:苏珊娜·巴恩希尔,微软MVP,部分回答了我的问题:

"简单的答案是,您可以通过在后台"打印"选项卡上的>打印所有页面下拉菜单中的"属性"下选择"样式"来打印这些信息。要将其"打印"为文档,您可以>将其打印到Microsoft XPS document Writer或PDF打印机。">

但是,这只会产生文档中正在使用的那些样式。由于我想检查的一些模板和样式集非常广泛,我不想创建一个文档并将每个样式分配给一个段落或字符。

演示,以便其他有相同问题的人可以使用答案。。。。。

正如OP中提到的,我在Windows7上使用Word2010。

文件->打印对话框中的"打印内容"下拉菜单提供了"打印样式"选项,但仅打印该文档中正在使用的样式的定义。

我得到了以下宏,它可以在Word2007和2010中使用。正如作者Jessica Weissman所说,

"这是我在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  

1.将文档的扩展名更改为.zip,使MyTemplate.docx变为MyTemplate.zip

2.打开zip文件

3.在"word"文件夹中有一个名为styles.xml的文件,其中包含所有样式及其设置。您可以用Excel(作为XML表)打开它,以表格式查看它。

(还有一个名为stylesWithEffects.xml的文件,它基本上是一样的,但仍然有区别,我没有检查到底有什么不同)。

然而,挑战在于许多列都有val17、val18等名称,因此并不总是清楚值的含义。

希望这能有所帮助JP-

相关内容

  • 没有找到相关文章

最新更新