title: Microsoft Word macro to copy text and past it in find and replacement
body: <p>I would like to paste the copied text in <code>.Replacement.Text</code>. I tried this with Selection Paste, but this doesn't work. </p>
  
  <p>To be clear: I'm trying to copy text in a Microsoft Word document and I want the copied text changed into multiply fieldcodes <kbd>ALT</kbd>+<kbd>F9</kbd>. So my Word document will change all field codes at once.    </p>
  
  <pre><code>    Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
      Selection.Copy
      ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
      Selection.WholeStory
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
          .Text = "00000"
          .Replacement.Text ="Selection.Paste"
          .Forward = True
          .Wrap = wdFindAsk
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
      Selection.WholeStory
      Selection.Fields.Update
  End Sub
  </code></pre>