Перенос из Excel в Word

В общем есть таблица в Excel нужно перенести ее в Word с выравниванием. Есть такой код
---------------------------------------
Sub Кнопка1_Щелчек()
Dim obj_Word As Word.Application
Dim obj_WDoc As Word.Document
Dim obj_ESheet As Worksheet
Dim obj_Range As Range
Dim obj_Excel As Workbook
Dim str_Str As String
Set obj_Range = Selection
Set obj_ESheet = ActiveSheet
Set obj_Excel = ActiveWorkbook
Set obj_Word = New Word.Application
obj_Word.Visible = True
Set obj_WDoc = obj_Word.Documents.Add
obj_WDoc.Activate
str_Str = "Скопировано из книги " + _
obj_Excel.Name + ", с листа " + _
obj_ESheet.Name
obj_Word.Selection.TypeText (str_Str)
obj_Word.Selection.TypeParagraph
str_Str = ""
For i = 1 To obj_Range.Rows.Count
For j = 1 To obj_Range.Columns.Count
str_Str = str_Str & obj_Range.Cells(i, j) & ", "
Next j
str_Str = Mid(str_Str, 1, Len(str_Str) - 2)
obj_WDoc.Activate
obj_Word.Selection.TypeText (str_Str)
obj_Word.Selection.TypeParagraph
str_Str = ""
Next i

End Sub
-----------------------------------------------
Для наглядности файл)