Hỗ trợ Bổ sung code VBA sưu tầm để hoàn chỉnh lưu excel sang word

[binh123456789]

Xin chào anh chị . Em có sưu tầm được đoạn VBA sau

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ội dung vùng dữ liệu bằng cách copy
	Sheet1.Range("D181").Copy
	'Mở ứng dụng Word từ 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
	'Tạo mới 1 file Word và dán nội dung vào
	Set wddoc = wdapp.Documents.Add
	wddoc.Active
	wddoc.Range.PasteSpecial xlPasteValues
	'Làm trống các biến để giải phóng bộ nhớ
	Set wddoc = Nothing
	Set wdapp = Nothing
	Application.CutCopyMode = False
	'Thông báo hoàn thành
	MsgBox "Done!"
	End Sub

Em có làm thử thì nó lưu không theo ý muốn. Em muốn lưu trên một trang word và phù hợp với trang A4 để in. xin anh chị diễn đàn hỗ trợ

 

[Maika8008]

Sửa lại tiêu đề đi bạn!

 

[binh123456789]

Sửa lại tiêu đề đi bạn!

Giúp em tiêu đề với

 

[binh123456789]

Anh (chị) giúp em đoạn vba đó với

 

[Hoàng Tuấn 868]

Giúp em tiêu đề với

Anh (chị) giúp em đoạn vba đó với

Còn gì không phải giúp nữa không nhỉ.