Sửa code vba để có thể copy hình ảnh

[binh123456789]

Sub test()
Dim num_of_cust As Long
Dim num_of_column As Long
Dim i As Long, j As Long
Dim template As Object
Dim t As Object

num_of_column = 3

num_of_cust = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row - 1
With CreateObject("word.application")
.Visible = True

For i = 1 To num_of_cust
Set template = .Documents.Open("C:\Users\Admin\Desktop\template.docx")
Set t = template.Content
For j = 1 To num_of_column
t.Find.Execute _
FindText:=Sheet1.Cells(1, j).Value, _
ReplaceWith:=Sheet1.Cells(i + 1, j).Value, _
Replace:=wdReplaceAll
Next
template.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & i & "dekt.docx"
Next
.Quit
End With
Set t = Nothing
Set template = Nothing

End Sub

 

[binh123456789]

có ai giúp khong vậy

 

[VetMini]

có ai giúp khong vậy

Hỏi kiểu gì như bố người ta vậy? Mới có vài tiếng đồng hồ đã nóng ruột rồi!

 

[binh123456789]

xin loi tai em cần gấp

 

[binh123456789]

nhờ anh chị giúp em voi

 

[binh123456789]

co ai giup e voi

 

[be_09]

xin loi tai em cần gấp

Góp ý cho bạn:
1/ Gấp là việc của bạn, các thành viên ai cũng có công việc của họ.
2/ Hỏi mà không nêu rỏ mục đích bạn muốn làm cái gì? Ở đâu? và cũng không đính kèm File thì chẳng ai hiểu và cũng không ai rảnh để đọc code cho tốn công.

 

[binh123456789]

xem và giúp em nút OK để past những câu hỏi mình đã chọn trên from qua file word khác. xin cám ơn

 

[be_09]

xem và giúp em nút OK để past những câu hỏi mình đã chọn trên from qua file word khác. xin cám ơn

Ba cái biểu, bảng sao không làm trên Excel để thuận tiện cho nhiều việc khác, nhất là việc lọc bất kỳ thứ gì sau đó xuất nó ra 1 File Word (mắc chi ôm việc khó vào trong lòng).

 

[binh123456789]

Ba cái biểu, bảng sao không làm trên Excel để thuận tiện cho nhiều việc khác nhất là việc lọc bất kỳ thứ gì sau đó xuất ra 1 File Word (mắc chi ôm việc khó vào trong lòng).

em có công thức toán không đánh được trên excel nên phải làm trên word ah

 

[be_09]

em có công thức toán không đánh được trên excel nên phải làm trên word ah

Ủa? Tiêu đề là copy hình ảnh mà sao đưa cái File Word khác, coi chừng vi phạm nội quy, mặc dù Topic này là của mình (nhưng nó khác chủ đề).

Sao không đọc kỹ bài 9, tôi nêu vầy "lọc bất kỳ thứ gì sau đó xuất nó ra 1 File Word".
Thì nó cũng là File Word muốn làm cái gì thì làm (chứ có gì khác đâu).

 

[binh123456789]

anh làm mẫu giúp em với từ đó em làm từ từ. có công thức toán giúp em nha.

Bài đã được tự động gộp: 13/12/18

anh làm mẫu giúp em với từ đó em làm từ từ. có công thức toán giúp em nha.

 

[be_09]

anh làm mẫu giúp em với từ đó em làm từ từ. có công thức toán giúp em nha.

Bài đã được tự động gộp: 13/12/18

anh làm mẫu giúp em với từ đó em làm từ từ. có công thức toán giúp em nha.

Nhưng File bài 8 khác chủ đề (đọc lại bài 11 đi).

 

[binh123456789]

Nhưng File bài 8 khác chủ đề (đọc lại bài 11 đi).

dạ em biết , em nhờ anh làm giúp em một file từ excel qua word . em không có flie ah

 

[be_09]

dạ em biết , em nhờ anh làm giúp em một file từ excel qua word . em không có flie ah

Bạn nêu vấn đề tôi không hiểu?
1/ Nếu hỏi Copy hình ảnh thì đính kèm File, mới biết Copy cái gì, ở đâu? và gán nó chỗ nào?
2/ Còn hỏi lọc và xuất ra File Word thì cũng đính kèm File Excel, nhưng nó không thuộc chủ đề của Topic này tôi trả lời sẽ vi phạm nội quy.

 

[binh123456789]

dạ . anh giúp em nha. em làm file thử

 

[binh123456789]

anh xem giúp em