Dim sFindText As String
Dim sReplaceText As String
Dim oClip As DataObject
Set oClip = New DataObject
oClip.GetFromClipboard
sFindText = oClip.GetText
sReplaceText = "The text to replace the found text with"
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = sFindText
.Replacement.Text = sReplaceText
.Forward = True
.Wrap = wdFindContinue
.format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
End With
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
"John" <Johni...@gmail.com> wrote in message
news:eppoDo3g...@TK2MSFTNGP06.phx.gbl...
"Graham Mayor" <gma...@REMOVETHISmvps.org> wrote in message
news:%23R7pzi6...@TK2MSFTNGP06.phx.gbl...
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
On Wed, 23 Dec 2009 08:52:09 -0800, "John" <Johni...@gmail.com>
wrote: