Không có gì lạ khi cần định dạng tệp văn bản trong Word. Ví dụ: bạn có thể nhận được tin nhắn e-mail từ ai đó cần định dạng hoặc bạn có thể nhận được tệp ASCII từ một người bạn. Điều cần thiết phổ biến nhất trong việc định dạng một tệp như vậy là xóa các khoảng trắng hoặc tab thừa ở đầu dòng, khoảng trắng hoặc tab thừa ở cuối dòng, xóa các ký tự “trả lời” ở đầu mỗi dòng và kết hợp các dòng để lập đoạn văn.

Làm tất cả điều này bằng tay là công việc tốn thời gian và có thể dễ dàng khiến bạn gặp khó khăn, đặc biệt nếu tệp rất lớn. Macro sau đây sẽ giúp bạn dễ dàng hơn. Nó hoàn thành tất cả các nhiệm vụ vừa được kể lại và thực hiện chúng rất nhanh chóng.

Sub DoASCII()

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

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     For J = 1 To 4         Selection.Find.Text = "^p> "

Selection.Find.Execute Replace:=wdReplaceAll     Next J     Selection.Find.Text = "^p^w"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^w^p"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p^p"

Selection.Find.Replacement.Text = "[{}]"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p"

Selection.Find.Replacement.Text = " "

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "[{}]"

Selection.Find.Replacement.Text = "^p"

Selection.Find.Execute Replace:=wdReplaceAll End Sub

Bạn nên lưu ý rằng macro này sẽ thay thế tối đa bốn cấp của “>”

ký tự đặt ở đầu dòng. Nó cũng giả định rằng nơi duy nhất bạn muốn ngắt đoạn là những nơi có dòng trống.

_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 (10895) áp dụng cho Microsoft Word 2007, 2010 và 2013.

Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: