2017-05-27 94 views

回答

0

你是否尝试了直接的方式?

Dim MyStyle As Style 

Set MyStyle = MyDocument.Styles("MyStyle") 
YourDocument.Paragraphs(1).Style = MyStyle 
+0

是的,我已经使用过它,但我不知道如何将它应用于选择的段落。我已经尝试过Selection.Style = ActiveDocument.Styles(myStyle),其中myStyle是来自不同风格的字典的样式。 – nunu1124

+0

'Selection.Range.Style = myStyle'会将样式应用于所有当前选择。 – Variatus

+0

在我的试验中,上述内容没有按预期工作。新的风格重写了现有的。为了使现有的和新的你可能必须添加样式'YourDocument.Styles.Add“MyStyle”,wdStyleType“,然后将现有的MyStyle分配给新的”MyStyle“样式。您可能希望查看“自动更新文档样式”作为不需要代码的替代方法。 。 – Variatus

0

只能应用其他文档的样式(如果它存在并且在要应用它的文档中具有相同的设置)。

要将样式从文档A复制到文档B,您需要使用管理器。 This article会告诉你如何通过界面来做到这一点。如果你需要使用代码,然后see here for details