Dear Em có đang thực hiện lệnh Copy vùng dữ liệu từ Excel ra Word theo

Dear Thầy,

Em có đang thực hiện lệnh: Copy vùng dữ liệu từ Excel ra Word theo định dạng đã có sẵn của file word mà em tạo.

Nhưng lúc chạy lệnh, định dạng lại khác so với excel. Thầy có thể giúp em không ạ? em cảm ơn thây.

Dưới đây là đoạn code mà em đã làm ạ:

Sub Export_to_Word()

Dim wdapp As Object, wddoc As Object

Dim strdocname As String

On Error Resume Next

'LAY NOI DUNG TU EXCEL

ThisWorkbook.Worksheets("SHEET1").Range("E8:H49").Copy

'MO UNG DUNG WORD BANG VBA

Set wdapp = GetObject(, "word.Application")

If Err.Number = 429 Then

    Err.Clear

    Set wdapp = CreateObject("Word.Application")

End If

wdapp.Visible = True

wdapp.Active

'TAO MOI 1 FILE WORD VA DAN NOI DUNG TU EXCEL VAO

Set wddoc = wdapp.Documents.Add("C:\Users\Desktop\VBA\TEMPLATE_WORD.docx")

wddoc.Active

wddoc.Range.PasteSpecial xlPasteValues

'LAM TRONG CAC BIEN THE DE GIAI PHONG BO NHO

Set wddoc = Nothing

Set wdapp = Nothing

Application.CutCopyMode = False

MsgBox "DONE"

End Sub