Có thể đôi khi bạn đang làm việc với một tài liệu khi bạn cần xóa các dấu đoạn thừa. Điều này đặc biệt đúng nếu bạn đang làm việc với tệp ASCII hoặc tệp có thể đã được định dạng ban đầu bằng trình xử lý văn bản khác. Quá trình xóa các dấu đoạn thừa theo cách thủ công này có thể rất tốn thời gian.

Nếu bạn thấy mình ở trong tình huống này, bạn có thể thấy điều quan tâm vĩ mô này. Nó loại bỏ các dấu đoạn thừa khỏi tài liệu. Khi hoàn thành, không được có thậm chí hai dấu đoạn liên tiếp trong tài liệu của bạn.

Sub ReplacePara()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^p^p"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

Có hai phần đối với macro này. Phần đầu tiên – dựa trên phương thức Selection.Find – sử dụng khả năng tìm và thay thế tích hợp của Word để tìm tất cả các trường hợp của hai dấu đoạn theo trình tự. Macro không thay thế các dấu đoạn tuần tự; nó chỉ đơn giản là tìm thấy chúng.

Sau đó, phần thứ hai của macro bắt đầu — sử dụng thuộc tính Selection.Find.Found — để xóa phần thứ hai của hai dấu đoạn tuần tự.

Lý do phương pháp này được thực hiện là vì nó để lại định dạng chính xác trên dấu đoạn còn lại. Ví dụ: nếu hai dấu đoạn liên tiếp sử dụng định dạng khác nhau, thì định dạng của dấu đoạn đầu tiên vẫn không thay đổi. Nếu bạn chỉ thay thế các dấu đoạn tuần tự bằng một dấu đoạn đơn, có thể bạn không có định dạng chính xác như mong muốn khi việc thay thế kết thúc.

Lưu ý rằng Selection.Find.Found được sử dụng như một “cờ” cho vòng lặp While.

Thuộc tính này phản ánh trạng thái của hoạt động Tìm mới nhất. Nếu Đúng thì tìm kiếm thành công; nếu Sai, thì không có gì được tìm thấy (và do đó, không có gì để thay đổi).

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (998) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016.