通过VBA更改word文档的段落对齐方式

时间:2012-01-04 15:33:34

标签: word-vba

我有excel工作簿,可以维护客户的数据,如地址和到期金额。我正在excel中编写一个VBA代码,它会为每个客户生成一个应付金额的信件。由于信件的复杂性,我无法使用mailmerge。我正在使用以下代码添加段落

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.content.InsertAfter "----------"
wrdDoc.content.InsertParagraphAfter

现在我需要更改段落的对齐方式。字母正文中的段落是合理的,而像主题行的某些段落则是中心对齐的。我试过这段代码,但它不能正常工作

1

wrdDoc.Paragraphs(8).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

2

wrdDoc.Paragraphs(8).Alignment = wdAlignParagraphCenter

这样做的正确方法是什么?

此致 谢卡尔

2 个答案:

答案 0 :(得分:2)

这对我有用:

objselection.Paragraphs.Alignment = 3

编号:

3 Justify 2中心 1右对齐

答案 1 :(得分:0)