將文檔中的所有樣式更新爲左對齊

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