T
thuthuy2000
Guest
Các thầy và các anh chị giúp dùm em với.
Input ban đầu:
Output mong muốn:
Em không biết thay chữ Word thành gì.
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ì.
Mã:
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