How Can I Leave Pasted Text Selected?

[Guest]

Whenever I paste copied text into a Word document, the insertion point moves
to the end of the pasted text. How can I get Word to paste the text and leave
it selected?

Typically after pasting, I select the pasted text and do a Search and
Replace to remove unnecessary paragraphs/line breaks from the pasted text.

Thanks,

Chris

 

[Guest]

I've tried everything...Paste Special doesn't remove the line breaks and I
have a macro to remove those, but I wanted to preceed that macro with one
that would select the pasted text.

Since the pasted text is always a different size, I can't standardize the
macro and prompting to count lines isn't reasonable, so if there was a way to
force Word to keep the pasted text selected, that's the golden ticket.

Sounds like the only way out is to have a macro create a new document, paste
the text, select all, run the line-break-removal macro, select all, copy,
close the new doc without saving and then paste the results into the
destination.

Thanks for trying though.

 

[Guest]

If you use a macro to paste the text anyway, you could try to use something
like the following to paste the text. Before pasting, the code stores the
position of the selection start. After pasting, the start of the selection is
set to the stored position, i.e. the selection is extended to include all you
have pasted.

Dim nPos As Long
With Selection
nPos = .Start
.Paste
.Start = nPos
End With

--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

 

[CyberTaz]

Don't know of any way to do so - "selection" isn't a concept with which the
clipboard is familiar... all it knows is "content" Have you tried using
Edit> Paste Special - Unformatted Text (or Unformatted Unicode Text) rather
than just slapping the stuff in?

If this is content being copied from the web you may find the following to
be useful:

http://word.mvps.org/FAQs/Formatting/CleanWebText.htm

 

[CyberTaz]

One alternative I did just happen to think of: Once you paste, click the
Paste Options button & select "Apply Style or formatting..." - that will
select what you just pasted (but brings up the Styles & Formatting Task
Pane, which you don't need). How you might work that into a macro I'm not
sure.

 

[Guest]

That worked beautifully...pastes and selects!

The only thing that remains, and it's very minor, is to dismiss the Find and
Replace dialog box...it asks me if I want to search the rest of the document.
I want the macro to respond with "No" to close the dialog box, but I don't
know how to get the macro to dismiss the prompt. Any ideas?

 

[Guest]

I don't know how your code looks but check the Find property and the Execute
method of Find (especially Wrap and Replace) in the VBA help. I think that
you only need to set Selection.Find.Wrap = wdFindStop.

--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

 

[Guest]

Thanks for your continued support! It works PERFECTLY! You have saved me at
least two hours a week! My code looks like this:

Sub PasteAndReplaceParasInSelection()
'
' PasteAndReplaceParasInSelection Macro
' For pasting text from a Web page into Word
'

'
Dim nPos As Long
With Selection
nPos = .Start
.PasteSpecial DataType:=wdPasteText
.Start = nPos
End With

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Wrap = wdFindStop
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub