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

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

ワード数が少ないstyle typesです。スタイルが段落スタイルであるかどうかを確認し、それが新しいスタイルにコピーして文字スタイルに変更することができます。