Изменение выравнивания абзаца слова документа через VBA - PullRequest
1 голос
/ 04 января 2012

У меня есть книга Excel, в которой хранятся данные моих клиентов, такие как адрес и сумма к оплате. Я пишу код VBA в Excel, который будет генерировать письмо каждому клиенту для причитающихся сумм. Я не могу использовать 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 ]

2 голосов
/ 08 июля 2016

Это сработало для меня:

objselection.Paragraphs.Alignment = 3

Числа:

3 Обоснуйте 2 Центр 1 Право Обоснуйте

0 голосов
/ 07 января 2012
...