Guest User

Untitled

a guest
Jan 24th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. With range.Find
  2. 'Find all bold words
  3. .Font.Bold = -1
  4. 'Replace them with this
  5. .Replacement.Text = "<b>" & LESTI DE MOT DE MARDE & "</b>"
  6. 'Execute the query
  7. .Execute(Replace:=Word.WdReplace.wdReplaceAll)
  8. End With
Add Comment
Please, Sign In to add comment