Trong bài viết dưới đây, chúng tôi muốn giới thiệu cho bạn 3 cách để thay đổi hàng loạt định dạng văn bản trong tất cả các hộp văn bản trong tài liệu Word của bạn.
Hộp văn bản thường được nhìn thấy trong các tài liệu. Trong khi định dạng văn bản tài liệu, chúng ta không thể quên chúng trong hộp văn bản. Tuy nhiên, các hộp văn bản nằm rải rác trong tài liệu có thể khiến bạn khó chọn tất cả văn bản bên trong một lần và mãi mãi. Do đó, ngoài mục đích định dạng, việc học một số thủ thuật để thực hiện xử lý hàng loạt là điều cấp thiết.
Cách 1: Sử dụng tính năng “Tìm nâng cao”
- Trước hết, hãy nhấp vào tab “Trang chủ” và nhấp vào nút mũi tên phía sau lệnh “Tìm” trong nhóm “Chỉnh sửa”.
- Tiếp theo trong danh sách thả xuống, chọn “Tìm kiếm nâng cao” để mở hộp thoại “Tìm và thay thế”.
- Đặt con trỏ vào hộp văn bản “Tìm gì” và nhập “^?” ở đó.
- Sau đó nhấp vào nút “Tìm trong” và chọn “Hộp văn bản trong tài liệu chính”.
- Bây giờ bạn có thể thấy tất cả văn bản trong hộp văn bản đang được chọn. Trong trường hợp bạn quên chuỗi cần điền vào hộp “Tìm gì”, bạn có thể nhấp vào nút “Thêm” để mở thêm tùy chọn trong hộp rồi nhấp vào “Đặc biệt”. Tiếp theo chọn “Bất kỳ ký tự nào”.
- Với tất cả văn bản được chọn, chỉ cần định dạng chúng theo yêu cầu.
Phương pháp 2: Thay đổi hàng loạt định dạng văn bản trong tất cả các hộp văn bản trong một tài liệu
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” trong Word để mở trình chỉnh sửa VBA.
- Tiếp theo nhấp vào “Bình thường”.
- Sau đó nhấp vào tab “Chèn” và chọn “Mô-đun”.
- Và nhấp đúp chuột vào mô-đun mới và dán macro bên dưới vào đó:
Sub FormatTextsInTextBoxes()
Dim objShape As Shape
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
For Each objShape In .Shapes
If objShape.Type = msoTextBox Then
objShape.TextFrame.TextRange.Font.Name = "Arial"
objShape.TextFrame.TextRange.Font.Size = "16"
End If
Next
End With
End Sub
- Cuối cùng, nhấp vào “Chạy”.
Macro này đặt tất cả văn bản trong hộp văn bản ở phông chữ “Arial” ở mức 16 pt. Bạn có thể thay đổi các cài đặt này nếu cần.
Phương pháp 3: Thay đổi hàng loạt định dạng văn bản trong tất cả các hộp văn bản trong nhiều tài liệu
Bây giờ chúng ta đang nói về xử lý hàng loạt, chúng ta không thể loại bỏ nhu cầu thực hiện việc đó giữa nhiều tệp.
- Trước tiên, hãy sắp xếp tất cả các tài liệu cần nhắm mục tiêu vào cùng một thư mục.
- Tiếp theo cài đặt và chạy macro như bạn làm trong phương pháp 2. Lần này thay thế các mã đó bằng các mã sau:
Sub FormatTextsInTextBoxesInMultiDoc()
Dim strFile As String
Dim strFolder As String
Dim objDoc As Document
' Initialization
strFolder = InputBox("Enter folder path here: ")
strFile = Dir(strFolder & "*.docx", vbNormal)
' Process each file in the folder.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Set objDoc = ActiveDocument
With objDoc
For Each objShape In .Shapes
If objShape.Type = msoTextBox Then
objShape.TextFrame.TextRange.Font.Name = "Arial"
objShape.TextFrame.TextRange.Font.Size = "16"
End If
Next
End With
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- Trong khi chạy macro, sẽ có một hộp nhập liệu nhắc nhở, chẳng hạn như bên dưới:
- Nhập địa chỉ thư mục vào hộp văn bản và nhấp vào “OK”. Đừng quên thêm “\” vào cuối chuỗi đường dẫn của bạn. Sau đó chỉ cần đợi Word thực hiện công việc của nó.
Hãy chuẩn bị đầy đủ khi bạn có thể
Chúng tôi hiểu rằng thật khó để nghĩ đến việc tệp của bạn bị hỏng. Tuy nhiên, chúng ta không bao giờ có thể bỏ qua khả năng này, thành thật mà nói thì khả năng này là tương đối cao. Dù sao đi nữa, việc thực hiện các biện pháp phòng ngừa sẽ ít rắc rối hơn là đi loanh quanh tìm kiếm một biện pháp phòng ngừa. tài liệu sửa chữa công cụ.
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 sửa excel 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