Tìm và thay thế những từ/cụm từ thoả mãn điều kiện cho sẵn trong word

Chia sẻ bởi:hands

★★★★★

‹ Thay thế hàng loạt từ trong nhiều... VBA copy file word hàng loạt ›

Quảng cáo

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 nhà đây.

Thao tác: mở tập tin -> nhấn tổ hợp Alt + F11 -> click đúp vào ThisDocument -> menu Insert -> Module -> dán code sau và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

-> chạ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/