Tự động xóa dấu cách thừa trong Word

[Phanhanhdai]

Chào các bạn. Mình thường xuyên làm văn bản dowm từ mạng xuống (dưới dạng Adobat). Nhưng khi mình xuất ngược trở lại sang Word thì thường gặp một số lỗi về định dạng Font chữ. Trong đó lỗi tiêu biểu là giữa hai chữ thường xuất hiện hai hoặc 3 dấu cách. Các bạn có biết xóa bớt dấu cách trong trường hợp này bằng VBA như thế nào không, chỉ giúp mình với. Mình cảm ơn rất nhiều.

 

[chibi]

Bạn có thể sử dụng chức năng Replace của Word. Thay tất cả 2 kí tự trắng bằng 1 kí tự trắng, đến khi nào hết thì thôi.

 

[heoconthanhda]

Hi bạn, Nếu bạn làm việc trên MS- Word mà muốn bỏ những khoảng trắng dư thừa thì bạn có thể dùng chức năng : Vào Tool/Option/Edit bỏ chọn Smart cut and paste -> OK
Hy vọng là mình nhớ không nhằm, hehe

 

[ongtrungducmx25]

Hi bạn, Nếu bạn làm việc trên MS- Word mà muốn bỏ những khoảng trắng dư thừa thì bạn có thể dùng chức năng : Vào Tool/Option/Edit bỏ chọn Smart cut and paste -> OK
Hy vọng là mình nhớ không nhằm, hehe

cách trên này không ổn rồi bạn ơi! xem cách của mình đi nhé! không chạy không ăn tiền ! kakakakak............

Sub Macro2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub