Finding and Replacing a word with text copied to clip board

[spc94]

I am trying to find a specific word and replace with text copied to my clip board. Currently I am searching the word replacing it with nothing and then pasting it there but it does seem to work correctly any suggestions.

ChangeFileOpenDirectory "X:\sconner\CCD Damage Mechanisms\Mechanisms\"


Documents.Open FileName:= _
"X:\sconner\CCD Damage Mechanisms\Mechanisms\Underdeposit Corrosion.docx", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(NEXT MECH)"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

[macropod]

You can't use Find/Replace on clipboard contents - only in a document.

[gmayor]

While Paul is correct, if you are copying the content of the named document into the active document then the following will do that. You don't have to use the clipboard (though you could).

Dim oDoc As Document
Dim oSource As Document
Dim oRng As Range
    Set oDoc = ActiveDocument
    Set oSource = Documents.Open(Filename:= _
                                 "X:\sconner\CCD Damage Mechanisms\Mechanisms\Underdeposit Corrosion.docx", _
                                 ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                                 PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                                 WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                                 wdOpenFormatAuto, XMLTransform:="")
    Set oRng = oDoc.Range
    With oRng.Find
        Do While .Execute(FindText:="(NEXT MECH)")
            oRng.FormattedText = oSource.Range.FormattedText
            oRng.Collapse 0
        Loop
    End With
    oSource.Close 0

[spc94]

Graham thank you for the help that worked! Now in my user form I have multiple check boxes that all have the same code as the first just different sources. How is it that I get them to post one after another when I execute the userform. I initially entered NEXT MECH as the end of each sources paragraph but it does seem to find it. Any Suggestions?