Trong bài viết này, chúng tôi xin giới thiệu cho bạn 3 phương pháp để thay đổi kiểu chữ đầu tiên của các từ cụ thể trong tài liệu Word của bạn.
Một trong những quy tắc phổ biến khi định dạng văn bản là viết hoa chữ cái đầu tiên của mỗi câu. Nhưng trong một số trường hợp đặc biệt, chẳng hạn như làm việc trên một tài liệu nghệ thuật, chúng tôi phải đáp ứng những yêu cầu cụ thể.
Và trong bài viết này, chúng tôi sẽ hướng dẫn bạn 3 cách thay đổi kiểu chữ cái đầu tiên của từ theo 3 yêu cầu khác nhau.
Phương pháp 1: Thay đổi kiểu chữ cái đầu tiên của mỗi từ trong tài liệu
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA trong Word.
- Sau đó nhấp vào “Bình thường” ở cột bên trái.
- Tiếp theo trên thanh menu, nhấp vào “Chèn”.
- Và nhấp vào "Mô-đun" trên menu thả xuống.
- Bây giờ, nhấp đúp chuột vào mô-đun mới để mở và dán các mã sau vào đó:
Sub ChangeStyleOfFirstLetterInWords()
Dim objWord As Range
For Each objWord In ActiveDocument.Words
' Change the font size for the first letter in every word.
objWord.Characters(1).Font.Size = 16
' Set Bold font for the first letter in every word.
objWord.Characters(1).Font.Bold = True
' Change the font color for the first letter in every word.
objWord.Characters(1).Font.Color = wdColorGreen
Next
End Sub
- Cuối cùng, nhấp vào “Chạy”.
Đây là kết quả:
Ghi chú:
-
Characters(1).Font.Size = 16
Điều này đặt kích thước phông chữ của chữ cái đầu tiên là 16. Thay đổi số theo ý muốn.
-
Characters(1).Font.Bold = True
Dòng này đặt chữ cái đầu tiên in đậm. Bạn có thể đổi “True” thành “False” nếu thấy không cần thiết.
-
Characters(1).Font.Color = wdColorGreen
Cái này áp dụng màu xanh lục cho chữ cái. Truy cập liên kết sau để chọn màu bạn muốn: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Cách 2: Thay đổi kiểu chữ đầu tiên của từ đầu tiên trong tất cả các câu
- Đầu tiên, cài đặt và chạy macro như trong phương pháp 1.
- Sau đó thay thế bằng macro này:
Sub ChangeStyleOfFirstLetterInSentence()
Dim objSentence As Range
For Each objSentence In ActiveDocument.Sentences
' Change the font size for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Color = wdColorGreen
Next
End Sub
Kiểm tra kết quả:
Phương pháp 3: Thay đổi kiểu chữ đầu tiên của từ đầu tiên trong tất cả các đoạn văn
- Tương tự, cài đặt và chạy macro theo các bước trong phương pháp 1.
- Tiếp theo sử dụng macro này:
Sub ChangeStyleOfFirstLetterInParagraphs()
Dim objParagraph As Word.Paragraph
For Each objParagraph In ActiveDocument.Paragraphs
' Change the font size for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Bold = True
Next
End Sub
Xem ảnh chụp màn hình:
Cách tiếp cận tốt nhất để xử lý mất dữ liệu
Có thể rất căng thẳng khi bị mất dữ liệu quan trọng. Do đó, bạn phải biết cách đối phó với một thảm họa như vậy. Và tất nhiên, giải pháp tốt nhất của bạn là nắm lấy một tài liệu sửa chữa tính thiết thực. Với nó, bạn có thể lấy lại dữ liệu của mình trong thời gian ngắn nhất.
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