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

我有这个excel文件，我已经能够通过vba将数据写入Word文档中作为报告。 VBA代码在包含数据的excel文件中。

我已经完成了大部分的代码，它工作正常，但我不知道如何告诉单词（通过在Excel中的VBA代码）来改变段落间距。 有什么build议？

我正在使用下面的代码从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

build议，但不具体的答案。 如果您在使用Word时如何处理Excel中的问题，我发现在Word中录制动作和审查生成的代码通常会为我解答。

在这个具体的例子中，我想出了以下几行代码：

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

Answer 2

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