Khi phát triển một tài liệu, không có gì lạ khi sử dụng một kiểu đoạn văn cụ thể cho các ghi chú biên tập. Ví dụ: các ghi chú có thể được lưu trữ trong các đoạn văn bằng kiểu gọi là “Ghi chú”. Tại một số điểm, bạn có thể muốn lấy tất cả các đoạn văn sử dụng kiểu Ghi chú và chuyển chúng thành các nhận xét thực tế trong tài liệu. Bạn có thể xem qua tài liệu và thực hiện chuyển đổi theo cách thủ công, nhưng điều này có thể nhanh chóng trở nên tẻ nhạt.

Thay vào đó, hãy sử dụng macro thực hiện chuyển đổi cho bạn:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

Macro bước lùi qua tài liệu, xem xét phong cách của từng đoạn văn. Nếu nó tìm thấy một cái sử dụng kiểu Notes, thì nó sẽ di chuyển văn bản của đoạn văn vào biến CommentText, rồi loại bỏ đoạn văn đó. Nhận xét sau đó được thêm vào cuối đoạn văn trước khi thực hiện xóa.

_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 (13382) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: