단락의 전체 스타일을 변경하지 않고 단어 스타일을 설정하는 방법은 무엇입니까?

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

단어 수가 적은 style types입니다. 스타일이 단락 스타일인지 확인한 다음 스타일이 새로운 스타일로 복사하여 문자 스타일로 변경할 수 있습니다.