Try it
Sub export_excel_to_word_1()
Dim obj As Object
Dim newObj As Object
Const wdPasteText As Long = 2
Const wdInLine As Long = 0
Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newObj = obj.Documents.Add
ActiveSheet.Range("A44:D144").Copy
'''newObj.Range.Paste
newObj.Range.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
obj.Activate
newObj.SaveAs FileName:=Application.ActiveWorkbook.Path & "" & ActiveSheet.Name
End Sub
Artik
Bookmarks