Trong bài viết hôm nay, chúng tôi rất vui được giới thiệu cho bạn 2 phương pháp nhanh chóng để thêm hàng loạt dấu ngoặc vuông vào số ghi chú trong tài liệu Word của bạn.
Bất cứ khi nào soạn thảo một tài liệu dài, chúng ta thường chèn chú thích cuối trang và chú thích cuối trang. Chúng tôi biết có các tùy chọn cho định dạng số vi trần. Tuy nhiên, không có kiểu số tích hợp với dấu ngoặc vuông. Những gì chúng ta sẽ thảo luận trong các văn bản tiếp theo là 2 giải pháp để giải quyết vấn đề như vậy.
Phương pháp 1: Sử dụng Chức năng “Tìm và Thay thế”
- Trước tiên, hãy nhấp vào tab “Trang chủ” trong tài liệu cần chỉnh sửa.
- Sau đó nhấp vào lệnh “Thay thế” trong nhóm “Chỉnh sửa” để mở hộp thoại “Tìm và Thay thế”.
- Bây giờ nếu bạn đang làm việc với chú thích cuối trang, hãy nhập “^f” vào hộp văn bản “Tìm gì”.
- Nhập “[^&]” vào hộp văn bản “Thay thế bằng”.
- Tiếp theo nhấp vào “Thay thế tất cả”.
- Điều tiếp theo bạn thấy là tất cả các số chú thích đều nằm trong ngoặc vuông. Nhấp vào “OK” để đóng hộp thông báo.
Ngoài ra, để thêm dấu ngoặc vuông vào chú thích cuối, chỉ cần thay “^f” bằng “^e” trong hộp văn bản “Find what”.
Cách 2: Chạy Macro trong Word
- Trước hết, hãy nhấn tổ hợp phím “Alt + F11” trong Word để mở trình soạn thảo VBA.
- Tiếp theo, nhấp vào “Bình thường” và sau đó nhấp vào tab “Chèn”.
- Trên menu thả xuống, chọn “Mô-đun”.
- Sau đó nhấp đúp vào mô-đun mới được chèn để mở khu vực chỉnh sửa ở bên phải.
- Và dán macro dưới đây:
Sub AddBracketForFootnoteAndEndnote()
Application.ScreenUpdating = False
Dim objRange As Range
With ActiveDocument
' add bracket for footnotes.
If ActiveDocument.Footnotes.Count > 0 Then
Call UpdateFootnoteRange(.Range)
For Each objRange In .StoryRanges
If objRange.StoryType = wdFootnotesStory Then
Call UpdateFootnoteRange(objRange): Exit For
End If
Next
MsgBox ("All footnotes have been added brackets.")
Else
MsgBox ("There is no footnote in this document")
End If
' add bracket for footnotes.
If ActiveDocument.Endnotes.Count > 0 Then
Call UpdateEndnoteRange(.Range)
For Each objRange In .StoryRanges
If objRange.StoryType = wdEndnotesStory Then
Call UpdateEndnoteRange(objRange): Exit For
End If
Next
MsgBox ("All endnotes have been added brackets.")
Else
MsgBox ("There is no endnote in this document")
End If
End With
Application.ScreenUpdating = True
End Sub
Sub UpdateFootnoteRange(objRange As Range)
With objRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^f"
.Replacement.Text = "[^&]"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub
Sub UpdateEndnoteRange(objRange As Range)
With objRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^e"
.Replacement.Text = "[^&]"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub
- Bây giờ đặt con trỏ chèn bên trong macro đầu tiên và nhấp vào “Chạy”.
- Sau đó, đầu tiên có một hộp thông báo cho biết dấu ngoặc vuông đã được thêm vào tất cả các số chú thích cuối trang.
- Tiếp theo là thông báo thứ hai cho biết quá trình chuyển đổi đã hoàn tất đối với tất cả các số ghi chú cuối.
Đây là kết quả chúng tôi nhận được:
Ngăn ngừa mất mát tài liệu
Với dữ liệu có giá trị như những gì chúng tôi lưu trữ, chúng tôi không thể chấp nhận bất kỳ cơ hội nào. Do đó, sẽ là khôn ngoan nếu bạn sao lưu các tệp quan trọng trước khi thực hiện bất kỳ động thái nào có nguy cơ làm hỏng chúng trừ khi bạn muốn có được một tài liệu bị hỏng.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm tham nhũng xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm