vba - 段落のスタイル全体を変更せずに単語のスタイルを設定する方法は?

Question

実際のスタイル名とフォント サイズと名前のように、現在のスタイルに応じて、ドキュメント内のすべての単語のスタイルを 1 つずつ変更するマクロを作成しようとしています。

私の問題は、最初の単語のスタイルを変更すると、段落全体のスタイルが変更されることです。これは、意図したものではありません。

'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 にはいくつかのスタイル タイプがあります。スタイルが段落スタイルかどうかを確認し、そうである場合は、それを新しいスタイルにコピーして文字スタイルに変更できます。