Daniel có một bài báo học thuật sử dụng nhiều chú thích. Ngay bây giờ, anh ấy có chú thích ở cuối mỗi câu. Anh ấy muốn kết hợp tất cả các chú thích trong một đoạn văn thành một chú thích duy nhất ở cuối đoạn. Anh ấy tự hỏi liệu có cách nào để làm điều này tự động không.

Không có cách nào để thực hiện việc này một cách tự động, nhưng bạn có thể làm điều đó với macro. Tất cả những gì macro cần làm là lướt qua từng đoạn trong tài liệu và xem nó có bất kỳ chú thích nào không. Sau đó, giả sử như vậy, nó sẽ nối những đoạn đó, xóa chú thích cuối trang và thêm chú thích mới với văn bản được nối ở cuối đoạn. Đây là một macro thực hiện điều đó:

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

Lưu ý rằng macro sẽ nối văn bản chú thích cho mỗi đoạn vào chuỗi sTemp. Sau đó, điều này được sử dụng khi thêm chú thích vào cuối đoạn văn. Điều này thể hiện một nhược điểm đối với macro — nó chỉ sao chép văn bản, không sao chép bất kỳ định dạng nào cho văn bản.

Ví dụ: nếu bạn có một loạt các chú thích bao gồm các trích dẫn cho sách, rất có thể những tên sách đó được định dạng nghiêng.

Sau khi chạy macro, chữ nghiêng sẽ biến mất, mặc dù tất cả văn bản vẫn ở đó. (Tôi không biết phải chuyển định dạng, nguyên vẹn, sang chú thích mớ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 (13767) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.