title: Replace text in multiple cells in a table on Microsoft Word using VBA
body: <p>I've got a large table in Microsoft Word and I'm wanting to highlight a selection of cells in the last column and change the text in them from &quot;Current&quot; to &quot;<strong>Changed</strong>&quot;. I know you can just use copy and paste or use a find/replace but I do this multiple times a day so it would be incredibly useful to just highlight and click a button.</p>
  <p>I've got some VBA in Excel that works fine on spreadsheets but doesn't seem to work in Word.</p>
  <pre><code>Sub WordEdit()
  
      Dim x As Range
      For Each x In Selection
      If x.Value &lt;&gt; &quot;&quot; Then x.Value = &quot;Changed&quot;
      Next
  
  End Sub
  </code></pre>
  <p>I'm not an expert in VBA so any help would be much appreciated. Thanks.</p>