Trích:
Nguyên văn bởi choechoe
Là sao? Mình cũng bị lỗi 1 số từ có dấu ( . ) hay( , ) ở sau là no ko thay. Bạn có thể hướng dẫn cụ thể hơn chút đc ko? Thanks nhiều  |
Phiên bản macro 8
Nhấn ALT-F11 vào macro
- bỏ gọi macro 4
'Call Macro4
-Thêm đọan này vào : ( để tách dấu chấm, dấu phẩy ra 1 khỏang trắng trước khi thay thế . )
With Selection.Find
.Text = ";"
.Replacement.Text = " ;"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "."
.Replacement.Text = " ."
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ","
.Replacement.Text = " ,"
End With
Selection.Find.Execute Replace:=wdReplaceAll
-Sau đó Save lại và chạy Macro
Chúc vui