Converting placeholder bookmark to enclosing bookmark

Hi All,
I want to paste text next to a placeholder bookmark and make the bookmark enclose the text..

I am using the following code ...

objDocTemp.Bookmarks(objBookMark.Name).Range.Copy
bkName = objBookMark.Name
Set bkRange = objDocNew.Bookmarks(objBookMark.Name).Range
bkRange.PasteSpecial
bkRange.Collapse direction:=wdCollapseStart
objDocNew.Bookmarks.Add Name:=bkName, Range:=bkRange

But this code copies the text and inserts the bookmark after it.


Can anybody help me out.........

Thanks
Ramya

ramyajAsked:
Who is Participating?
 
EDDYKTCommented:
Try this

Application.Selection.GoTo What:=wdGoToBookmark, Name:=objBookMark.Name
bkName = objBookMark.Name
Set bkRange = objDocNew.Bookmarks(objBookMark.Name).Range
pos = bkRange.End - bkRange.Start
bkRange.PasteSpecial
bkRange.Collapse direction:=wdCollapseStart
Application.Selection.MoveRight Unit:=wdCharacter, Count:=pos, Extend:=wdExtend
objDocNew.Bookmarks.Add Name:=bkName, Range:=bkRange

where application is your word.application
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.