macro copy/paste between bookmarks

[MEME]

Hi,

I'm using word 2003 - I have a file. I have two bookmarks. I need to copy
and paste the text in between the two bookmarks and append it at the end of
the file.

Can you help to program a macro to do that?

Thank you very much for your cooperation,

 

[Doug Robbins - Word MVP]

Something like

Dim myrange As Range
With ActiveDocument
Set myrange = .Range
myrange.start = .Bookmarks("FirstBookMark").Range.End + 1
myrange.End = .Bookmarks("SecondBookMark").Range.start - 1
.Range.InsertAfter myrange.FormattedText
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[MEME]

Great, thank you
--
meme

Something like

Dim myrange As Range
With ActiveDocument
Set myrange = .Range
myrange.start = .Bookmarks("FirstBookMark").Range.End + 1
myrange.End = .Bookmarks("SecondBookMark").Range.start - 1
.Range.InsertAfter myrange.FormattedText
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[MEME]

Hi again,

It was working until a table was in the text! it is loosing the format.
Only the text is copied!

Thank you

 

[Doug Robbins - Word MVP]

Try

Dim myrange As Range
With ActiveDocument
Set myrange = .Range
myrange.start = .Bookmarks("FirstBookMark").Range.End + 1
myrange.End = .Bookmarks("SecondBookMark").Range.start - 1
myrange.Copy
Set myrange = .Range
myrange.Collapse wdCollapseEnd
myrange.Paste
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[MEME]

It works!

Thank you very much. It is excellent!