문서의 모든 스타일을 왼쪽 정렬로 업데이트

Question

문서의 모든 스타일을 찾을 수있는 단어 문서 용 매크로를 찾고 있는데 무엇이든 (가운데 맞춤, 오른쪽 맞춤)에서 왼쪽 맞춤으로 변경합니다 .

텍스트를 변경하고 싶지는 않지만 (부산물 제외) 스타일 자체가 변경되어 모든 것이 업데이트됩니다.

Answer 1

감사 Remou, 나는 그 작업을 시도하고,이 작동하는 것 같다 :

Sub ChangeStyles() 

Dim oSource As Document 
Set oSource = ActiveDocument 

For i = 1 To oSource.Styles.Count 
' must check the style type as character style gives an error 
If oSource.Styles(i).Type = wdStyleTypeParagraph Then 
With ActiveDocument.Styles(i).ParagraphFormat 
.Alignment = wdAlignParagraphLeft 
End With 
Else 
End If 
Next i 

End Sub