Tìm và thay thế những từ/cụm từ thoả mãn điều kiện cho sẵn trong word
Chào các bạn
Trong file word, mình muốn tìm những từ thoả mãn những điều kiện sau
- Chữ đỏ
- Size 14
- Có gạch chân
- Font Arial
Những text không thoả mãn 4 điều kiện trên thì không cần can thiệp gì. Các bạn vui lòng xem file đính kèm.
Và khi tìm ra những từ này thì mình muốn là trên và dưới những từ này cách nhau bởi một đoạn mới. Mình có gửi kèm hình ảnh kết quả mong muốn kế bên để các bạn dễ hình dung.
Các bạn giúp mình tạo một VBA để làm nhanh những thao tác trên một cách nhanh chóng nha.
Cảm ơn các bạn nhiều
Tôi đang nhậu ở trước nhà đây.
Thao tác: mở tập tin -> nhấn tổ hợp Alt + F11 -> click đúp vào ThisDocument -> menu Insert -> Module -> dán code sau vào Module1
Sub FindFormatedText()
Dim rngTemp As Range
Set rngTemp = ThisDocument.Range
' xoa cac thiet lap cu
rngTemp.Find.ClearFormatting
rngTemp.Find.Replacement.ClearFormatting
With rngTemp.Find
' tim cac doan thoa man 3 dieu kien: chu mau do, co 14, co gach chan.
' Khong hieu sao tren may toi co the tim "Times New Roman" nhung khong tim duoc "Arial"
' Moi nguoi nen thu tren may minh co tim thay "Arial" khong.
' Hien thoi toi chi tim voi 3 dieu kien roi kiem tra xem ten phong chu co la Arial hay khong.
.Font.Color = wdColorRed
.Font.Size = 14
.Font.Underline = wdUnderlineSingle
' .Font.Name = "Arial" ' "Times New Roman"
Do While .Execute
' neu co phong chu Arial thi them dong truoc va sau doan tim duoc
If rngTemp.Font.Name = "Arial" And rngTemp.Text <> vbCr Then rngTemp.Text = vbCr & rngTemp.Text & vbCr
' "khep" Range vao cuoi
' rngTemp.Collapse wdCollapseEnd
Loop
End With
End Sub
-> chạy code
www.giaiphapexcel.com/diendan/threads/t%C3%ACm-v%C3%A0-thay-th%E1%BA%BF-nh%E1%BB%AFng-t%E1%BB%AB-c%E1%BB%A5m-t%E1%BB%AB-tho%E1%BA%A3-m%C3%A3n-%C4%91i%E1%BB%81u-ki%E1%BB%87n-cho-s%E1%BA%B5n-trong-word.128318/
Ứng dụng AI và Chat GPT trong Quản trị nhân sự
Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...
Xem khóa họcBạn nên đọc

Email Word with Message (Uses xlDialogSendMail & Outlook Express)

Chuyển code mã hóa tiếng Việt thành số thành code chạy trong Word?

Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.

Add-In .xlam trộn dữ liệu Excel vào Word

Nhờ mọi người giúp mình cách file excel, word tự xóa theo từng thời điểm ạ.
![[Giúp đỡ] Tìm kiếm, lọc và lấy dữ liệu từ nhiều file Word vào 1 file excel](https://hrspring.vn/wp-content/uploads/logo-size-to-spr-320.webp)
Bình luận