将doc中的所有样式更新为left-align

Question

我正在为word文档寻找一个宏，它可以找到文档中的每个样式，并将其从任何位置（居中，对齐，右对齐）更改为left-align。

我不想更改文本（除了作为副产品），但样式本身也是如此，所有内容都会更新。

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