Code dán ecxel sang word

[binh123456789]

Nhờ anh chị bổ sung thêm dùm em code phía dưới là khi dán ra word đúng định dạng trang giấy A4 letf 2.5cm, rigth 2cm, top 2cm, botom 2cm, khoảng cách giữa các dòng là 6pt
Sub Export_to_Word() 'Xuất dữ liệu ra file Word
'Khai báo các biến
Dim wdapp As Object, wddoc As Object
Dim strdocname As String
On Error Resume Next
'Lấy nộii dung vùng dữ liệu bằng cách copy
Sheet1.Range("A1:I35").Copy
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 và dán noi dung vào
Set wddoc = wdapp.Documents.Add
wddoc.Active
wddoc.Range.PasteSpecial xlPasteValues
'Làm tr?ng các bi?n d? gi?i phóng b? nh?
Set wddoc = Nothing
Set wdapp = Nothing
Application.CutCopyMode = False
'Thông báo hoàn thành
MsgBox ("Hoan thanh")
End Sub

 

[binh123456789]

Có ai giúp không vậy

 

[binh123456789]

Có cách nào haonf chỉnh đoạn code vba ở trên không? Mong giúp đở

 

[anhdepjai]

Của bạn đây, ngoài ra muốn chỉnh thêm gì thì cho vào đoạn tôi đã thêm

Sub Export_to_Word() 'Xu?t d? li?u ra file Word
'Khai báo các bi?n
Dim wdapp As Object, wddoc As Object
Dim strdocname As String
On Error Resume Next
'L?y n?ii dung vùng d? li?u b?ng cách copy
Sheet1.Range("A1:I35").Copy
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 và dán noi dung vào
Set wddoc = wdapp.Documents.Add
wddoc.Active
wddoc.Range.PasteSpecial xlPasteValues

With wddoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = 78.4 'tuong duong 20mm
.BottomMargin = 78.4 'tuong duong 20mm
.LeftMargin = 98 'tuong duong 25mm
.RightMargin = 78.4 'tuong duong 20mm
.Gutter = 0
End With
'Làm tr?ng các bi?n d? gi?i phóng b? nh?
Set wddoc = Nothing
Set wdapp = Nothing
Application.CutCopyMode = False
'Thông báo hoàn thành
MsgBox ("Hoan thanh")
End Sub

 

[binh123456789]

Cảm ơn bạn

 

[binh123456789]

Của bạn đây, ngoài ra muốn chỉnh thêm gì thì cho vào đoạn tôi đã thêm

Sub Export_to_Word() 'Xu?t d? li?u ra file Word
'Khai báo các bi?n
Dim wdapp As Object, wddoc As Object
Dim strdocname As String
On Error Resume Next
'L?y n?ii dung vùng d? li?u b?ng cách copy
Sheet1.Range("A1:I35").Copy
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 và dán noi dung vào
Set wddoc = wdapp.Documents.Add
wddoc.Active
wddoc.Range.PasteSpecial xlPasteValues

With wddoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = 78.4 'tuong duong 20mm
.BottomMargin = 78.4 'tuong duong 20mm
.LeftMargin = 98 'tuong duong 25mm
.RightMargin = 78.4 'tuong duong 20mm
.Gutter = 0
End With
'Làm tr?ng các bi?n d? gi?i phóng b? nh?
Set wddoc = Nothing
Set wdapp = Nothing
Application.CutCopyMode = False
'Thông báo hoàn thành
MsgBox ("Hoan thanh")
End Sub

Chưa ổn lắm bạn ơi. Vì khi mình thực hiện lệnh thì nó nhẩy lề trái tới 3 mấy lận

 

[binh123456789]

Hi