0
我試圖製作一個宏,它可以逐個更改文檔中所有單詞的樣式,具體取決於它們的當前樣式,如實際樣式名稱以及字體大小和名稱。如何在不更改段落的整個樣式的情況下設置單詞的樣式?
我的問題是,當我改變了第一個單詞的風格時,它改變了整個段落的風格,這是非常無意的。
'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")
...
* NewStyleB *需要是字符樣式(或鏈接樣式)。然後你可以設置'Word'對象的'Style'屬性:'w.Style =「NewStyleB」' –