は、私だけが私のコードを開発し、いくつかのさらなる助けを必要とWordの

Question

にExcelからのデータを用いて細胞をコピーします。私はいくつかの以前の助けを借りて、今基礎をダウンしていますが、私はこの次の部分で確認していません。

シートに使用される行の量は、使用されているデータの量に応じて変化することにより、私が設計していたコードは、スプレッドシートで実行されます。 （ビジネスとノルウェーの法律の性質上、詳細はわかりません）

B5:B1000の範囲を標準範囲とし、データが入っているセルにはテンプレートに自動入力する必要があります私は上記のコードを書く方法が不明です。誰かが私がこれについてどうやって行くことができるかアドバイスしてもらえますか？

これに関連するすべての質問には、別のシートからのコピーに基づいています。これは、その列Bを前提としてい

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

コンパクト（データには穴）されています：

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