2017-05-27 93 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