The following should work (and set the row height)
Sub ExcelRangeToWord()
'Modified by Graham Mayor - https://www.gmayor.com - Last updated - 23 Apr 2020
'PURPOSE: Copy/Paste An Excel Table Into a New Word Document
'Uses late binding so no need to set a reference to Word
Dim tbl As Excel.Range
Dim WordApp As Object
Dim myDoc As Object
Dim WordTable As Object
'Optimize Code
Application.ScreenUpdating = False
Application.EnableEvents = False
'Declare Named Range from Excel
Set tbl = ThisWorkbook.Worksheets(1).Range("Table1")
'Copy Excel Table Range
tbl.Copy
'Create an Instance of MS Word
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err Then
Err.Clear
Set WordApp = CreateObject("Word.Application")
End If
'Handle if the Word Application is not found
If Err.Number = 429 Then
MsgBox "Microsoft Word could not be found, aborting."
GoTo EndRoutine
End If
On Error GoTo 0
'Make MS Word Visible and Active
WordApp.Visible = True
WordApp.Activate
'Create a New Document
Set myDoc = WordApp.Documents.Add
'Paste Table into MS Word
myDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
'Autofit Table so it fits inside Word Document
Set WordTable = myDoc.Tables(1)
With WordTable
.AutoFitBehavior 2 'wdAutoFitWindow
.Range.Rows.HeightRule = 2 'wdRowHeightExactly
.Range.Rows.Height = WordApp.CentimetersToPoints(1) 'set row height to 1 cm
End With
EndRoutine:
'Optimize Code
Application.ScreenUpdating = True
Application.EnableEvents = True
'Clear The Clipboard
Application.CutCopyMode = False
Set WordApp = Nothing
Set WordTable = Nothing
Set myDoc = Nothing
Set tbl = Nothing
End Sub