只将数据从Excel复制到Word

我需要进一步帮助开发我的代码。 现在我已经有了一些基础知识，但是我不能确定下一部分。

我正在devise的代码将在电子表格中运行，因此工作表中使用的行数将根据所使用的数据量而变化。 （由于商业性质和挪威法律，我不能详细说明。）

我想有一个范围的B5:B1000作为标准范围，只有包含数据的单元格被自动填充到模板中，但我不确定如何编写所述代码。 有人可以请告诉我如何能够做到这一点？

所有与此相关的问题都是基于从一张纸复制到另一张。

这是我在Excel中使用的代码：

 Sub CopyRangeToWord() Dim objWord Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("C:\Users\CoffeeFuelsMeNow\Documents\Custom Office Templates\EVERYTHING IS AWESOME.dotx") Range("B5:B92").Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .PasteAndFormat (wdFormatPlainText) End With objWord.Visible = True End Sub 

Answer 1

这假设B列是紧凑的 （数据中没有漏洞）：

 Sub CopyRangeToWord() Dim objWord, N As Long Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.documents.Add N = Cells(Rows.Count, "B").End(xlUp).Row Range("B5:B" & N).Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .PasteAndFormat (wdFormatPlainText) End With objWord.Visible = True End Sub