Sub DirectFormat()
Dim para As Paragraph
Dim fnt As Font
Dim pfmt As ParagraphFormat
For Each para In ActiveDocument.Paragraphs
With para
If .Style <> ActiveDocument.Styles("Normal") Then
Set fnt = .Style.Font
Set pfmt = .Style.ParagraphFormat
.Style = ActiveDocument.Styles("Normal")
.Range.Font = fnt
.Range.ParagraphFormat = pfmt
End If
End With
Next
End Sub
这是 SalesForce 的不足之处。
我不知道 SalesForce 是否知道内置样式,或者它如何从内置样式而不是自定义样式中获取材料。
这是我网站上的文章:了解 Microsoft Word 中的样式。
本质上,风格就像一个编程子程序。
您应用样式,Word 会读取文档中的样式设置以应用格式。它可以代替多达 50 个单独的直接格式化设置。使用样式极大地简化了 Word 文件。
如果您解压缩您的 Word 文档之一,您可以自己看到这一点。
这是一个示例文档的临时链接。
这是该文档的屏幕截图:
以下是这三个段落的文档 XML 的样子:
在单独的 XML 部分中,您会找到样式的定义。这是测试文档中用作自定义样式的样式正文文本 3 的定义。
这是示例文档中也使用的内置标题 1 样式的定义。
看看我在我的页面中提到的效率测试。
这里还有一些参考资料:
该宏完成将样式格式转换为直接格式的工作。 https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other-mso_2010/how-can-i-removeconvert-styles-to-make-text-normal/b0ecb413-7d36-4643-bb34- 0cd2cf08a9f3
引用该答案:
Jay Freedman,Word MVP - 这是他的下载页面。