通過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文檔的段落對齊

回答

相關問題