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

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 的样式类型很少。检查您的样式是否为段落样式，如果是，则可以将其复制为新样式并将其更改为字符样式。