hello
thanks again for you help.
I didn't get it working so I for the one with the problems I added this
ThisWorkbook.Sheets("Sykemeldinger").Range("t17"). Copy
appWrd.Selection.Goto What:=wdGoToBookmark, Name:="navn"
appWrd.Selection.PasteSpecial , Text = " "
appWrd.Selection.TypeBackspace

regards
Ove Malde



Chris Marlow wrote:
Ove,

If you just want the text at the bookmark I would replace with something
like this;

objDoc.Range(objDoc.Bookmarks("kommune").Start).In sertAfter_
ThisWorkbook.Sheets("Sykemeldinger").Range("aa17")
objDoc.Range(objDoc.Bookmarks("navn").Start).Inser tAfter _
ThisWorkbook.Sheets("Sykemeldinger").Range("t17")
objDoc.Range(objDoc.Bookmarks("Fnummer").Start).In sertAfter _
ThisWorkbook.Sheets("Sykemeldinger").Range("w17")

I've not had time to test ... let me know how it goes.

Regards,

Chris.

--