如何使用VBA宏更改Word文档中的文本对齐方式？

Question

我正在使用Word for doc doc搜索段落文本方向更改，但我什么都没有。

我刚刚找到Excel单元格的解决方案： http://software-solutions-online.com/excel-vba-reading-order/

Answer 1

Set objWord = CreateObject("Word.Application")
Set obj = objWord.Documents.Open("path\to\file")

Dim par
Dim myParas
Set myParas = obj.Paragraphs

For i = 1 To myParas.Count '''Iterate over all paragraphs
Set par =myParas(i)
par.ReadingOrder = xlRTwdReadingOrderRtl '''set text direction(aka Reading Order)
par.Range.ParagraphFormat.Alignment = 3
Next

obj.save
obj.close

您也可以使用cscript.exe

从cmd运行它