通過Excel修改Word文檔中的行間距

Question

我有這個excel文件，我已經能夠通過vba將數據寫入Word文檔中作爲報告。 VBA代碼位於包含數據的excel文件中。

我已經完成了大部分代碼，並且工作正常，但我無法弄清楚如何通過excel中的vba代碼告訴單詞來更改段落間距。有什麼建議？

我使用下面的代碼寫入到從Excel字（不完整的代碼只是一個例子）：

Dim wdApp As Word.Application 
Dim wdDoc As Word.Document 
Set wdApp = New Word.Application 
Set wdDoc = wdApp.Documents.Add 
wdDoc.Content.InsertAfter "Test" 
wdDoc.Content.InsertParagraphAfter 
wdDoc.SaveAs (file & "\SpecificReport_" & filter & ".doc") 
wdDoc.Close 
wdApp.Quit 
Set wdDoc = Nothing 
Set wdApp = Nothing 

Answer 1

建議，但沒有具體的答案。如果您在使用Word處理Excel問題時遇到困難，我發現在Word中記錄動作並審閱生成的代碼通常會爲我解答。

在這種特定的實例，我想出了下面的代碼行：

wdDoc.Content.ParagraphFormat.SpaceBefore = 6 wdDoc.Content.ParagraphFormat.SpaceBeforeAuto = False

Answer 2

我猜你已經被要求改變正常字體回單倍行距（預Word2010中）。除了改變normal.dotx試試這個：

With The_WordDoc.Styles("Normal").ParagraphFormat 
.SpaceBefore = 0 
.SpaceBeforeAuto = False 
.SpaceAfter = 0 
.SpaceAfterAuto = False 
.LineSpacingRule = wdLineSpaceSingle 

End With 
The_WordDoc.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = _ 
    False 
With The_WordDoc.Styles("Normal") 
    .AutomaticallyUpdate = False 
    .BaseStyle = "" 
    .NextParagraphStyle = "Normal" 
End With