có một vấn đề khá thú vị...các bạn nghiên cứu nha.
b1:bạn hãy tải 1 trong 2 file trong post trên (của bạn duongthanh85):
Trích:
Mình khởi đầu với 2 file data của 2 truyện mình đang đọc:
- Liên Hoa Bảo Giám
- Trương Tam Phong dị giới du
|
b2: tạo mới 1 file word.
b3:sau khi giải nén bạn hãy mở file Data.txt rồi copy tất cả nội dung sang file word.
b4: chạy macro
b5: mở xem file word (kết quả => nhiều từ không thay đổi)
---------------
còn vấn đề nữa là file LHBG.zip của bạn duongthanh85 phần cuối có mấy tên thiếu dấu = (các bạn nhớ bổ sung => không thì báo lỗi)
-bổ sung thêm 3 dòng lệnh
(in đậm) để bỏ lỗi thiếu dấu '='
Trích:
Selection.Find.MatchCase = False ' chọn chế độ find không phân biệt hoa thường
Do While Not EOF(1)
Line Input #1, txt
txt = .ReadLine 'Doc dong thu 1 & gan vao bien txt1
i = InStr(txt, "=")
If (i <> 0) Then 'nếu không có dấu = thì bỏ qua dòng đó
Arr = Split(txt, "=", 2)
txt1 = Trim(Arr(0)) & " "
txt2 = Trim(Arr(1)) & " "
With Selection.Find 'thuc hien replace txt1 boi txt2
.Text = txt1
.Replacement.Text = txt2
End With
Selection.Find.Execute Replace:=wdReplaceAll 'replace toan van ban
End If
Loop
|