Nhờ giúp đỡ code về xoá khoảng trắng và dòng trống

[ongdongheo]

Tình hình là mình muốn tạo macros trong Word để giúp định dạng nhanh các văn bản. Lang thang trên mạng tìm được dòng lệnh:
.Text = "( ){2,}"
.Replacement.Text = " " '(1 space)
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
Tuy nhiên khi chạy nó làm thay đổi định dạng căn giữa của văn bản về căn thẳng lề Trái. Có bác nào giúp code lại để nó không làm thay đổi định dạng căn giữa của văn bản không vậy. Xin trân thành cảm ơn

 

[VetMini]

Tuỳ theo trình độ lập văn bản, "căn giữa" có cả chục cách thực hiện.
Biết "căn giữa" trong văn bản của bạn được thực hiện ở trình độ nào mà nói chuyện thay đổi với không thay đổi.

Nếu chúng được thực hiện bằng styles thì xoá khoảng trắng thừa không ảnh hưởng gì cả.
Trình độ sử dụng styles là trình độ hơi trên trung bình một chút, nhưng vẫn không thể nói là cao cấp.

Cũng giống như Pivot Table trong Excel, ngày xưa những người dạy tin học văn phòng không học những cái này cho nên bây giờ không biết để mà dạy.