Copy paste highlighted text to another doc

fumei · #1 02-10-2013, 11:18 PM

Code:

Sub CopyHighlightsToOtherDoc()
Dim ThisDoc As Document
Dim ThatDoc As Document
Dim r As Range
Set ThisDoc = ActiveDocument
Set r = ThisDoc.Range
Set ThatDoc = Documents.Add
With r.Find
   .Text = ""
   .Highlight = True
   Do While .Execute(Forward:=True) = True
      ThatDoc.Range.InsertAfter r.Text & vbCrLf
      r.Collapse 0
   Loop
End With
End Sub

All highlighted text in the ActiveDocument are copied (with an added paragraph mark to separate them) to a new document.

burniksapwet · #2 04-10-2022, 09:43 AM

Quote:

Originally Posted by fumei

Code:

Sub CopyHighlightsToOtherDoc()
Dim ThisDoc As Document
Dim ThatDoc As Document
Dim r As Range
Set ThisDoc = ActiveDocument
Set r = ThisDoc.Range
Set ThatDoc = Documents.Add
With r.Find
   .Text = ""
   .Highlight = True
   Do While .Execute(Forward:=True) = True
      ThatDoc.Range.InsertAfter r.Text & vbCrLf
      r.Collapse 0
   Loop
End With
End Sub

All highlighted text in the ActiveDocument are copied (with an added paragraph mark to separate them) to a new document.

This is awesome. But I was wondering if you can tweak this for my need. Basically it does the same thing but instead of pasting it in a new document I want it to override the current document. I want nothing else on that document but for the result to be pasted, then save it. This is so that I can keep the result under the same filename.
Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy Text Twice to Paste into word	Albundy	Word	2	09-02-2016 12:59 PM
Find & selected paras with highlighted text & copy to clipboard	marceepoo	Word VBA	1	09-14-2012 08:20 PM
Table copy/paste suddenly text-only	mjcoon	Word Tables	20	04-28-2012 08:53 PM
Can't copy/cut and paste text in Word 2002	mmiller751	Word	0	04-17-2012 02:55 PM
Losing Text box data when copy and paste	Spay	Excel	0	03-15-2011 07:18 AM