이미 존재하는 단어 문서로 데이터 이동하기

Question

이것은 VBA를 사용하는 제 3의 날입니다. 현재이 회사와 3 개월 계약을 맺고 있으며 Excel에서 새로운 단어 문서 (몇 년 동안 원했던 프로세스)로 자동으로 데이터를 전송하는 방법을 알아 냈습니다. 나는 또한 기존의 워드 문서를 여는 방법을 알아 냈다.

사실, Excel에서 기존 단어 문서로 데이터를 전송하는 방법을 찾지 못했습니다.

위의 이유로 작성하려고 시도한 코드는 다음과 같습니다. 아무도 내가 잘못 가고있는 것을 지적 할 수 있습니까? 모든 모든 답변 주시면 감사하겠습니다 :)

이 나를 위해 완벽하게 잘 작동

Sub CopyRangeToWord() 
Dim objWord As Word.Application 
Dim objDoc As Word.Document 
Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx") 

Set objDoc = objWord.Documents 
objWord.Visible = True 
Range("A1:B10").Copy 
With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 
     'All formatting goes here 
    .Paste 
    .Font.Name = "broadway" 
    .Font.Color = wdColorBlue 
    .Font.Bold = True 
    .Font.Italic = True 
    .Font.Allcaps = True 
    .Font.Size = 20 
End With 
End Sub 

Answer 1

: 그것은 테이블로 또 다시 문서에 행을 추가 내가 코드

Dim objWord 
Dim objDoc 
Set objWord = CreateObject("Word.Application") 
Set objDoc =objWord.Documents.Open("C:\Users\schmidmath\Documents\test1.docx") 

Range("A1:B10").Copy 

With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 
    'All formatting goes here 
    .Paste 
    .Font.Name = "broadway" 
    .Font.Color = wdColorBlue 
    .Font.Bold = True 
    .Font.Italic = True 
    .Font.Allcaps = True 
    .Font.Size = 20  
End With 
objWord.Visible = True 

Answer 2

을 실행하면 수정 된 코드 아래에있는 코드는 제 끝에서 작동합니다. 테스트하여 요구 사항이 만족 스럽다면 알려주십시오.

Sub CopyRangeToWord() 
Dim objWord 
Dim objDoc 

Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Add 
Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx") 
Set obj­Doc = objWord.Documents 

objWord.Visible = True 
Range("A1:B10").Copy 
With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 
     'All formatting goes here 
    .Paste 
    .Font.Name = "broadway" 
    .Font.Color = wdColorBlue 
    .Font.Bold = True 
    .Font.Italic = True 
    .Font.Allcaps = True 
    .Font.Size = 10 
End With 
End Sub