Copy and Paste a short paragraph

[Steve Frye]

When I try to copy a paragraph into the text of the document, I get an extra
carraige return which I don't want. The code I am using is:

Set aRange = ActiveDocument.Paragraphs(9).Range
ActiveDocument.Bookmarks("PlaceHolder").Range.Text = aRange

How can I make it so the paragraph just gets inserted and the rest of the
text continues normally?
(Is there a better way to do it than what I'm trying?)


Thanks
Steve

 

[Jonathan West]

When I try to copy a paragraph into the text of the document, I get an extra
carraige return which I don't want. The code I am using is:

Set aRange = ActiveDocument.Paragraphs(9).Range
ActiveDocument.Bookmarks("PlaceHolder").Range.Text = aRange

How can I make it so the paragraph just gets inserted and the rest of the
text continues normally?
(Is there a better way to do it than what I'm trying?)

Try this

Set aRange = ActiveDocument.Paragraphs(9).Range
aRange.MoveEnd Unit:=wdCharacter, Count:=-1
ActiveDocument.Bookmarks("PlaceHolder").Range.Text = aRange

 

[Steve Frye]

Works wonderful!
Thanks

Try this

Set aRange = ActiveDocument.Paragraphs(9).Range
aRange.MoveEnd Unit:=wdCharacter, Count:=-1
ActiveDocument.Bookmarks("PlaceHolder").Range.Text = aRange

--
Regards
Jonathan West - Word MVP
http://www.multilinker.com
Please reply to the newsgroup