Về tìm kiếm trong Word

[thuthuy2000]

Các thầy và các anh chị giúp dùm em với.
Input ban đầu:

Bạn cần đăng nhập để thấy hình ảnh

Output mong muốn:

Bạn cần đăng nhập để thấy hình ảnh

Em không biết thay chữ Word thành gì.

Sub replaceText()

With Selection.Find
    .Font.Bold = True
    With .Replacement
        .Text = "#Word#"
        .Font.Size = 24
        .Font.Underline = True
    End With
    .Execute Replace:=wdReplaceAll
End With

End Sub

 

[Deleted member 208]

Bạn thử xem thế này được không?

Sub tuhocvba()
    With Selection.Find
        .Font.Bold = True
        .Format = True
    End With

    Do While Selection.Find.Execute
        Selection.Text = "#" & Selection.Text & "#"
    Loop
End Sub

 

[thanhphong]

Bạn cần đăng nhập để thấy đính kèm

Bạn thử :

Sub replaceText2()
    Dim mRng As Range

    Set mRng = ActiveDocument.Range
    With mRng.Find
        .Font.Bold = True
        Do While .Execute = True
            With mRng
                .Text = "#" & .Text & "#"
                .Font.Size = 24
                .Font.Underline = True
            End With
        Loop
    End With
End Sub

 

[thuthuy2000]

Em cảm ơn các thầy. Em đã thử ,tất cả đều thành công.