通过VBA更改Word文档的段落对齐

我有保存我的客户的数据的Excel工作簿像地址&到期金额。我在Excel中写了一个VBA代码，这个代码将生成一封信给每个客户。由于信件的复杂性，我无法使用mailmerge。我正在使用以下代码添加段落通过VBA更改Word文档的段落对齐

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

现在我需要更改段落的对齐方式。字体中的段落是合理的，而像主题行这样的段落要中心对齐。我想这个代码，但它不工作

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

也

wrdDoc.Paragraphs(8).Alignment = wdAlignParagraphCenter

什么是正确的方式做这个？

问候谢卡尔

来源

2012-01-04 user1130219

http://www.vbaexpress.com/forum/showthread.php?t=29989

来源

2012-01-07 18:13:47 Rajat

非常感谢rajat.Actually我已经努力寻找解决方案，下面的代码已经工作。集myrange = wrdDoc.Range（wrdDoc.Paragraphs（9）.Range.Start，wrdDoc.Paragraphs（24）.Range.End） myrange.Select wrdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify 这意味着预测的字属性wd *不是问题，正如链接中所建议的那样。虽然我找到了解决方案，但我仍然不知道为什么我的第一个代码没有工作。任何答案？ – user1130219 2012-01-12 14:38:54

这为我工作：

objselection.Paragraphs.Alignment = 3个

编号：

3对齐 2中心 1右键理由

来源

2016-07-08 02:00:39 Kaikass

这工作对我来说，但我发现1 =中心。我的代码是'WordApp.Selection.Paragraphs.Alignment = 1' - 将段落对齐更改为选择的中心，迭代为每个循环的a。 – 2017-05-16 20:56:36

通过VBA更改Word文档的段落对齐

回答

相关问题