Обновить все стили в doc для выравнивания по левому краю

Question

Я ищу макрос для документов Word, который найдет каждый стиль в документе и изменит его с того, что есть (по центру, выровнено, по правому краю), по левому.

Я не хочу менять текст (кроме как побочный продукт), но сам стиль, поэтому все обновляется.

Answer 1

Спасибо, Рему, я пытался работать с ним, и это, кажется, работает:

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