通过Excel修改Word文档中的行间距

我有这个excel文件，我已经能够通过vba将数据写入Word文档中作为报告。 VBA代码位于包含数据的excel文件中。通过Excel修改Word文档中的行间距

我已经完成了大部分代码，并且工作正常，但我无法弄清楚如何通过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

来源

2012-02-07 ichigo

建议，但没有具体的答案。如果您在使用Word处理Excel问题时遇到困难，我发现在Word中记录动作并审阅生成的代码通常会为我解答。

在这种特定的实例，我想出了下面的代码行：

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

来源

2012-04-04 19:27:34 kazmone1

我猜你已经被要求改变正常字体回单倍行距（预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

来源

2017-10-30 05:25:19 LeasMaps

通过Excel修改Word文档中的行间距

回答

相关问题