Tìm và Định Dạng Font chữ trong word (1 người xem)

[thanhvien_moi]

chào các anh chị. em có 1 vấn đề nhờ sự trợ giúp của các anh chị. Trong 1 file word em muốn viết 1 đoạn code để tìm 1 từ bất kỳ sau đó thay đổi font chữ của nó. Em có ghi macro bằng cách tìm kiếm và thay thế trong word, nó ra code nhưng em không thấy code chỗ nào đổi font hết. Xin cảm ơn các anh chị nhiều

 

[batman1]

Thêm Module và dán code sau. Chạy sub test để thử nghiệm

Option Explicit

Sub tim(ByVal findText As String, ByVal fontname As String)
Dim rng As Range
    Set rng = ThisDocument.Range
    With rng
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        .Find.Replacement.Font.Name = fontname
        .Find.Text = findText
        .Find.Execute Replace:=wdReplaceAll
    End With
End Sub

Sub test()
    tim "anh", "Wingdings 2"
End Sub

 

[thanhvien_moi]

Thêm Module và dán code sau. Chạy sub test để thử nghiệm

Option Explicit

Sub tim(ByVal findText As String, ByVal fontname As String)
Dim rng As Range
    Set rng = ThisDocument.Range
    With rng
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        .Find.Replacement.Font.Name = fontname
        .Find.Text = findText
        .Find.Execute Replace:=wdReplaceAll
    End With
End Sub

Sub test()
    tim "anh", "Wingdings 2"
End Sub

dạ anh em chạy code của anh nó nó không ra, nhưng em nhìn code anh + áp dụng ghi macro thì em được code này. Nó chạy đúng yêu cầu của em