Create an array or list of highlighted text in selection

rjrichar40 · #1 09-03-2014, 10:37 AM

Noob question...

I have a script that will easily remove any highlighting within the selected text. However, I want to log/track the specific text that is being "un-highlighted" as separate log items (either in an array or list) without including the entire selection. The script I have now just removes any highlighting from anything within the selected range.

Any ideas or links to a good script to borrow to obtain the text being un-highlighted? So far, my attempts either log the entire piece of selected text, or just the last item of highlighted text... But not the individual highlighted "chunks" that I want to record.

Much appreciated!

gmaxey · #2 09-03-2014, 01:02 PM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCol As New Collection
Dim lngIndex As Long
  Selection.Find.ClearFormatting
  Selection.Find.Highlight = True
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    While .Execute
      Selection.Range.HighlightColorIndex = wdAuto
      oCol.Add Selection.Range.Text
      Selection.Collapse wdCollapseEnd
    Wend
  End With
  For lngIndex = 1 To oCol.Count
    Debug.Print oCol.Item(lngIndex)
  Next lngIndex
lbl_Exit:
  Exit Sub
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formatting- Apply changes to highlighted text results in same change to other text	sential	Word	6	01-10-2014 03:22 PM
Convert String Array to Integer Array from a User Input?	tinfanide	Excel Programming	4	12-26-2012 08:56 PM
Selection of all Text for a specific page in word is spanning selection across pages	ramsgarla	Word VBA	9	12-05-2012 03:23 AM
Prepare report/list of all highlighted items	nrschmid	Word	1	10-05-2011 06:26 PM
Highlighted Selection on Action Settings	mos7sad	PowerPoint	0	10-12-2009 07:48 AM