Trong bài viết hôm nay, chúng tôi xin hướng dẫn các bạn 2 cách để chuyển đổi hàng loạt văn bản thành chỉ số trên hoặc chỉ số dưới trong tài liệu Word của bạn.
Đôi khi, chúng ta cần thay đổi một số văn bản nhất định trong tài liệu Word thành chỉ số trên hoặc chỉ số dưới, đặc biệt khi có nhiều phiên bản của cùng một văn bản. Trong những trường hợp như vậy, việc thay thế hàng loạt là điều chúng ta cần.ost. Vì lý do này, chúng tôi cung cấp 2 phương pháp Nhanh để bạn hoàn thành nhiệm vụ.
Cách 1: Sử dụng tính năng “Tìm và Thay thế”
Trong những nội dung sắp tới, chúng ta sẽ sử dụng mẫu “DataNumen Word Repair v2.5” như minh chứng của chúng tôi. Mục đích của chúng tôi là thay thế “v2.5” dưới dạng chỉ số dưới.
- Đầu tiên và foremost, nhấp vào tab "Trang chủ".
- Tiếp theo bấm vào “Thay thế” để mở hộp thoại “Tìm và thay thế”.
- Đầu tiên nhập “v2.5” vào hộp văn bản “Find what”. Đừng quên nhập dấu cách trước văn bản.
- Sau đó nhập “v2.5” vào hộp văn bản “Thay thế bằng”. Lần này không có khoảng trống trước văn bản.
- Tiếp theo nhấp vào nút “Thêm” để mở rộng thêm nhiều tùy chọn.
- Bây giờ hãy nhấp vào “Định dạng” và chọn “Phông chữ”.
- Trong hộp thoại “Tìm phông chữ”, hãy chọn hộp “Chỉ số trên” hoặc “Chỉ số dưới”.
- Sau đó nhấp vào “OK”.
- Cuối cùng nhấp vào nút “Thay thế tất cả”.
Bạn có thể kiểm tra hiệu ứng ở đây:
Phương pháp 2: Thay thế hàng loạt bằng cách chạy Word Macro
- Để bắt đầu, nhấn “Alt + F11” để kích hoạt trình soạn thảo VBA.
- Sau đó nhấp vào dự án “Bình thường” và tab “Chèn” tiếp theo.
- Chọn “Mô-đun” trên menu thả xuống.
- Tiếp theo nhấp đúp chuột vào mô-đun mới để mở khu vực mã hóa.
- Dán macro sau vào đó:
Sub ReplaceTheTextAsSubscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = True
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Nhấp vào "Chạy".
- Đầu tiên là hộp “Chọn văn bản”. Nhập văn bản tìm kiếm của bạn và nhấp vào “OK”. Trong trường hợp này, hãy nhập “ v2.5”.
- Sau đó là hộp "Thay thế văn bản". Nhập văn bản thay thế vào đó và nhấp vào “OK”. Nhập “v2.5”.
Nếu bạn cần thay đổi văn bản thành chỉ số trên, bạn có thể sử dụng macro này:
Sub ReplaceTheTextAsSuperscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sửa lỗi tài liệu
Lỗi từ không còn xa lạ với most của chúng tôi. Một Word bị thu gọn có thể dẫn đến một docx bị hỏng tài liệu. Để giải quyết vấn đề như vậy, bạn cần sử dụng một công cụ đủ tiêu chuẩn và chuyên nghiệp để khôi phục 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 bị hỏng xlsx 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