Something along the lines of:
[VBA]
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

<SELECT THE TEXT HERE> <using 'Selection.'>

Selection.Copy
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
[/VBA]
This isn't quite finished, the <SELECT TEXT HERE> bit requires some code,
but hopefully points you in the right direction.
Hope this helps,

Marcster.