Chào các pro, e là thành viên mới tập thành học VBA để phục vụ công việc kế toán của mình
Em đang viết đoạn code trên file excel lệnh cho các file (word.docx file copy) copy vào 1 file word (tổng hợp), sau khi chạy code từ excel thì code chạy ok, chỉ là kết quả ra trang của file docx cuối cùng, thì e tìm hiểu nguyên nhân là do trong excel e ko điều khiển được con trỏ chuột về cuối dòng của file word. e xin các pro chỉ giáo. Em xin đăng code từ file excel của e lên diễn đàn, để mn giúp đỡ e. Em cám ơn!
(Mấy chỗ ghi chú là e đang loay hoay viết lệnh để cho word nó hiểu mà toàn không được)
Em đang viết đoạn code trên file excel lệnh cho các file (word.docx file copy) copy vào 1 file word (tổng hợp), sau khi chạy code từ excel thì code chạy ok, chỉ là kết quả ra trang của file docx cuối cùng, thì e tìm hiểu nguyên nhân là do trong excel e ko điều khiển được con trỏ chuột về cuối dòng của file word. e xin các pro chỉ giáo. Em xin đăng code từ file excel của e lên diễn đàn, để mn giúp đỡ e. Em cám ơn!
(Mấy chỗ ghi chú là e đang loay hoay viết lệnh để cho word nó hiểu mà toàn không được)
Mã:
Sub abc()
Dim wordapp As Word.Application
Dim mydoc As Word.document
Set wordapp = CreateObject("Word.Application")
wordapp.Visible = True
Set mydoc = wordapp.documents.Open("C:\Users\NGOC\Desktop\Sub makemailmerg.docx")
mydoc.Activate
'mydoc.Range.WholeStory => ko chay duoc
'Selection.EndKey Unit:=6 => khong chay duoc
'mydoc.Content.moveend (Unit:=wdStory) => chay duoc nhung khong có ket qua
mydoc.Range.InsertBreak (wdSectionBreakNextPage) '+=> noi dung bi day xuong trang sau
End Sub