Xuất ra file Word

[khoang lang hg86]

Mọi người giúp em với, hiện tại em ko xuất ra được file word. Em cảm ơn mọi người ạ

 

[BuiQuangThuan]

Dùng chức năng mailings là được mà

 

[khoang lang hg86]

Bạn giúp mình với, tại file dữ liệu của mình chứa rất nhiều thông tin và cần phải xuất ra nhiều file word khác nhau, hiện tại bây giờ mình vẫn phải làm theo kiểu thủ công, xuất ra file word rồi quay trở lại file excel để copy thông tin từ cột quá trình công tác sang file word (những ô nào ký tự ít thì vẫn lấy thông tin được, còn lại nhiều ký tự quá thì ko lấy được thông tin để điền vào file mẫu)

 

[batman1]

Nên học và làm mailing bên Word.

Trong thời gian học mailing thì ...
1. Để "đâu ra đấy" thì trong VBE: menu Insert -> Module -> chuyển toàn bộ code Sub Xuat_ra_nhieu_file từ module TRICH_DU_LIEU sang module vừa thêm.

2. Dán code ở dưới vào module vừa thêm.

3. Trong VBE menu Tools -> References -> tìm và đánh dấu chọn "Microsoft Forms 2.0 Object Library -> nhấn OK

4. Hãy tập thói quen khai báo tất cả các biến. Trong Sub Xuat_ra_nhieu_file khai báo thêm

Dim i As Long, j As Long

5. Trong Sub Xuat_ra_nhieu_file
thay

content.Find.Execute findtext:=fintext, replacewith:=replacetext, Replace:=2

bằng

FindAndReplace word_app, fintext, replacetext

Sửa lại tên biến fintext thành findtext - đã tiếng Anh thì sao cho đúng.

6. Hiện tại code không xét cột O, P, Q nên trong trong Word [bennoi], [benngoai], [vocon] không được thay thế. Muốn cả O, P, Q thì trong Sub Xuat_ra_nhieu_file
thay

lc = TRICH_DU_LIEU.Cells(4, Columns.Count).End(xlToLeft).Column

bằng

lc = TRICH_DU_LIEU.Cells(2, Columns.Count).End(xlToLeft).Column

7. Code thêm vào module nói ở điểm 2.

Private Sub FindAndReplace(wordApp As Object, ByVal strFind As String, ByVal strReplace As String)
Const wdReplaceAll = 2
Const wdFindContinue = 1

    Dim dataObj As New MSForms.DataObject
   
    dataObj.SetText strReplace
    dataObj.PutInClipboard
   
    wordApp.Selection.End = 0

    With wordApp.Selection.Find
        .ClearFormatting
        .MatchCase = True
        .MatchWholeWord = True
        .Text = strFind
        .Replacement.ClearFormatting
        .Replacement.Text = "^c"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
End Sub

 

[khoang lang hg86]

Cảm ơn Batman1 và BuiQuangThuan nhiều nhiều