vba 텍스트 문서에 셀을 쓰는 것

Question

나는 셀 문서의 단락과 테이블을 워드 문서 내에 작성하기 위해 매크로를 작성했다. 문제는 매크로를 실행할 때 워드 문서에 나타나는 첫 번째 것이 테이블이다. , 그 아래의 텍스트, 그리고 그 아래의 다른 테이블과 텍스트 등등, 각 테이블 밑에있는 텍스트는 그 위에 있어야합니다. 무엇이 잘못하고 있는지 모르겠지만 여기까지 내 코드가있다

Set objword = CreateObject("Word.Application") 
Set objdoc = objword.Documents.Add 
Set objselection = objword.Selection 
Set objrange = objdoc.Content 

objword.Visible = True 

Set objrange = objdoc.Content 
objrange.Collapse Direction:=wdCollapseend 

' write paragraph 
If Cells(i, 9) <> "" Then 
    objselection.TypeText Text:=Mid(CStr(Cells(i, 1)), 1, 2) & "." & Mid(CStr(Cells(i, 1)), 3, 2) & "." & Mid(CStr(Cells(i, 1)), 5, 2) & "." & Mid(CStr(Cells(i, 1)), 7, 2) & " " & CStr(Cells(i, 9)) 
    objselection.TypeParagraph 
Else 
    If Cells(i, 8) <> "" Then 
     objselection.TypeText Text:=Mid(CStr(Cells(i, 1)), 1, 2) & "." & Mid(CStr(Cells(i, 1)), 3, 2) & "." & Mid(CStr(Cells(i, 1)), 5, 2) & " " & CStr(Cells(i, 8)) 
     objselection.TypeParagraph 
    Else 
     If Cells(i, 7) <> "" Then 
      objselection.TypeText Text:=Mid(CStr(Cells(i, 1)), 1, 2) & "." & Mid(CStr(Cells(i, 1)), 3, 2) & " " & CStr(Cells(i, 7)) 
      objselection.TypeParagraph 
     Else 
      If Cells(i, 6) <> "" Then 
       objselection.TypeText Text:=Mid(CStr(Cells(i, 1)), 1, 2) & " " & CStr(Cells(i, 6)) 
       objselection.TypeParagraph 
      End If 
     End If 
    End If 
End If 

With objselection 
    .TypeText Text:=Cells(i, 6) & "|" & Cells(i, 7) & "|" & Cells(i, 8) & "|" & Cells(i, 9) 
    .TypeParagraph 
    .TypeText Text:=CStr(Worksheets("1").Cells(b, 11)) 
    .TypeParagraph 
    .TypeText Text:="test" 
    .TypeParagraph 
End With 

'write table 

Set objtable = objdoc.Tables.Add(objrange, cn, 2) 
objtable.AutoFormat (16) 

'populate table 

For cpopulate = 0 To cn - 1 
    With objtable 
     .Cell(cpopulate + 1, 1).Range.Text = Cells(i + cpopulate, 1) 
     .Cell(cpopulate + 1, 2).Range.Text = CStr(Cells(i + cpoppulate, 10)) 
    End With 
Next cpopulate 

Answer 1

나는 내 의견이 너무 짧아서 내 표류를 포착 할 수 없다고 생각한다. 내가 말하고자하는 것은 (적어도 나에게) Excel에서 테이블을 만드는 것이 더 쉬워서 Word에 있다는 것입니다.

VBA에서 Cells() 및 Range() 참조를 모두 가지고 신속하게 각 셀을 처리하고 원하는 데이터로 채우는 경우가 특히 그렇습니다. 그 다음에는 ListObject으로 나열하고 그 테이블에 멋진 작은 사전 설정을 적용하는 것이 좋습니다.

테이블이 완료 당신이 원하는 당신은 당신이 쉽게 코드의 두 가지 간단한 선으로 최종 테이블을 통해 복사 할 수 있습니다 원하는대로 포맷 모든 데이터를 포함하면 :

ws.Range("A1:G20").Copy 
objDoc.Paragraphs(1).Range.PasteExcelTable _ 
    LinkedToExcel:=False, _ 
    WordFormatting:=False, _ 
    RTF:=False 

이 일을 더 쉽게 만들려면을 테이블 위에 복사하면 즉시 삭제되는 "임시"시트를 사용할 수 있습니다.

Option Explicit 

Public Sub CopyTableToWord() 

Dim ws As Worksheet 

'Setup a temporary sheet 
Set ws = ThisWorkbook.Worksheets.Add 

'here should be your above code to fill the table with all the data that you want/need 
'afterwards you may even want to format that table 

'... and then you can easily copy over the final table to Word 
ws.Range("A1:G20").Copy  '... or whatever the resulting range will be 
objDoc.Paragraphs(1).Range.PasteExcelTable _ 
    LinkedToExcel:=False, _ 
    WordFormatting:=False, _ 
    RTF:=False 

'... remove the temporary sheet afterwards if you wish or keep it 
' so you don't have to recreate it each time 
Application.DisplayAlerts = False 
ws.Delete 
Application.DisplayAlerts = True 

End Sub