如何在不改变段落的整个样式的情况下设置单词的样式？

Question

I am trying to make a macro which changes the style of all words in the document one by one, depending on the their current style, as in the actual style name and the font size and name.

My problem is that, when I change the style of the very first word, it then changes the style of entire paragraph, which is very much not intended.

'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")
      ...

The property .CharacterStyle is readonly, however when I use the code below, only the word gets the style applied, as it should, it does however not keep the style in its style property or its character style property, which is quite important, so I am at a loss about what to do.

'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 has few style types . Check if your style is a paragraph style, and if it is then you can copy it to a new style and change it to a character style.