Lynn,
I found a way of doing this using the Spike command.
Select the revised text you want to copy. Then run the Spike command
(Ctrl+F3). This will cut the selection to a special kind of item called
the Spike (which handles repeated cuts, unlike Word's regular Cut
command). If you only want to copy rather than cut the selection, then
immediately run EditUndo (Ctrl+Z), which will return the cut text to
where it was.
Now go to the destination document and run the InsertSpike command
(Ctrl+Shift+F3). This will paste the text, along with its revisions.
If you want to use a macro for this, here's what I use. This cuts the
selection to spike, then runs the Undo command. So the effect is as if
you had copied, rather than cut the text. Note that the undo command
does NOT undo the spike itself. It only undoes the cutting of the
selection.
Sub CopySelectionToSpike()
Application.ScreenUpdating = False
NormalTemplate.AutoTextEntries.AppendToSpike Range:=Selection.Range
ActiveDocument.Undo
End Sub
Larry
