如何在不更改段落的整個樣式的情況下設置單詞的樣式？

Question

我試圖製作一個宏，它可以逐個更改文檔中所有單詞的樣式，具體取決於它們的當前樣式，如實際樣式名稱以及字體大小和名稱。

我的問題是，當我改變了第一個單詞的風格時，它改變了整個段落的風格，這是非常無意的。

'Loop trough all words 
For Each w In p.Range.Words 
... 

... 

'Switch based on the style of the word 
Select Case r 
    Case "b" 
     w.Style = ActiveDocument.Styles("NewStyleB") 
     ... 

酒店.CharacterStyle是隻讀的，但是當我使用下面的代碼，只有兩個字得到應用的風格，因爲它應該，但它確實跟不上風格在它的樣式屬性或它的字符樣式屬性，這非常重要，所以我不知道該怎麼做。

'Loop trough all words 
For Each w In p.Range.Words 
... 

... 

'Switch based on the style of the word 
Select Case r 
    Case "b" 
     w.CharacterStyle = ActiveDocument.Styles("NewStyleB") 
     ... 

Answer 1

Word很少style types。檢查您的風格是否爲段落風格，如果是，則可以將其複製到新風格並將其更改爲字符風格。