title: Search word document and delete found text
body: <p>Trying to search a word document through excel VBA and delete the found text:</p>
  
  <pre><code> Set objWord = CreateObject("Word.Application")
  
      objWord.Visible = True
      path = "C:\Test.docx"
      txt1 = "Search text"
      Set objDoc = objWord.Documents.Open(path)
  
  
      With objWord.ActiveDocument
          Set myRange = .Content
          With myRange.Find
              .Text = txt1
              .Replacement.Text = ""
              .Forward = True
              .Wrap = wdFindContinue
              .Execute
  
              Selection.Delete
  
          End With
      End With
  </code></pre>
  
  <p>However, it doesn't seem to delete the text!</p>
  
  <p>Any help please</p>