Excel에서 Word로 데이터가있는 셀만 복사하십시오.

Question

코드 개발에 도움이 필요합니다. 좀 더 일찍 도움을 얻었지만 이제 다음 부분에 대해서는 확신 할 수 없다.

내가 설계중인 코드는 시트에 사용 된 행의 양이 사용되는 데이터의 양에 따라 달라지는 스프레드 시트에서 실행됩니다. (사업의 성격과 노르웨이 법에 따라 더 자세한 내용을 알 수 없습니다.)

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