Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how do I find and list all highlighted words in Word 2003?
working on a school paper.
need to highlight words in paper, which I did. now need to list these highlighted words as "Themes Included" at the end of the paper. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how do I find and list all highlighted words in Word 2003?
In the Find dialog, click the More button and choose Format | Highlight
(leave the "Find what" box empty). Check the box for "Highlight all items found in: Main document." Then click Find All. This will select all the highlighted words. Click on the title bar of the document to return focus to the document without deselecting the selected items and press Ctrl+C to copy. Then Ctrl+V to paste the selections at the end of the document. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Eric" wrote in message ... working on a school paper. need to highlight words in paper, which I did. now need to list these highlighted words as "Themes Included" at the end of the paper. |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how do I find and list all highlighted words in Word 2003?
In the Find dialog, click the More button and choose Format | Highlight (leave the "Find what" box empty). Check the box for "Highlight all items found in: Main document." Then click Find All. This will select all the highlighted words. Click on the title bar of the document to return focus to the document without deselecting the selected items and press Ctrl+C to copy. Then Ctrl+V to paste the selections at the end of the document. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Eric" wrote in message ... working on a school paper. need to highlight words in paper, which I did. now need to list these highlighted words as "Themes Included" at the end of the paper. |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how do I find and list all highlighted words in Word 2003?
While Suzanne's suggestion is simple and effective, the following macro will
extract all the highlighted entries by colour to a new document http://www.gmayor.com/installing_macro.htm Sub ExtractHiLight() Dim FirstFind As Boolean Dim rDcm As Range Dim lClr As Long ' color index Dim sCol As String Dim Doc1 As Document Dim Doc2 As Document If ActiveDocument.Content.HighlightColorIndex 0 Then Set Doc1 = ActiveDocument Set Doc2 = Documents.Add Doc1.Activate For lClr = 1 To 16 FirstFind = True Select Case lClr Case 1 sCol = "Black" Case 2 sCol = "Blue" Case 3 sCol = "Turquoise" Case 4 sCol = "Bright green" Case 5 sCol = "Pink" Case 6 sCol = "Red" Case 7 sCol = "Yellow" Case 8 sCol = "White" Case 9 sCol = "Dark blue" Case 10 sCol = "Teal" Case 11 sCol = "Green" Case 12 sCol = "Violet" Case 13 sCol = "Dark red" Case 14 sCol = "Dark yellow" Case 15 sCol = "50% gray" Case 16 sCol = "25% gray" End Select Set rDcm = Doc1.Range With rDcm.Find .Highlight = True While .Execute If rDcm.HighlightColorIndex = lClr Then If FirstFind Then Doc2.Range.InsertAfter sCol & vbCr FirstFind = False End If Doc2.Range.InsertAfter vbTab & rDcm.Text & vbCr End If Wend End With Next Else MsgBox "No Highlighting found." End If End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Eric" wrote in message ... working on a school paper. need to highlight words in paper, which I did. now need to list these highlighted words as "Themes Included" at the end of the paper. |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how do I find and list all highlighted words in Word 2003?
While Suzanne's suggestion is simple and effective, the following macro will extract all the highlighted entries by colour to a new document http://www.gmayor.com/installing_macro.htm Sub ExtractHiLight() Dim FirstFind As Boolean Dim rDcm As Range Dim lClr As Long ' color index Dim sCol As String Dim Doc1 As Document Dim Doc2 As Document If ActiveDocument.Content.HighlightColorIndex 0 Then Set Doc1 = ActiveDocument Set Doc2 = Documents.Add Doc1.Activate For lClr = 1 To 16 FirstFind = True Select Case lClr Case 1 sCol = "Black" Case 2 sCol = "Blue" Case 3 sCol = "Turquoise" Case 4 sCol = "Bright green" Case 5 sCol = "Pink" Case 6 sCol = "Red" Case 7 sCol = "Yellow" Case 8 sCol = "White" Case 9 sCol = "Dark blue" Case 10 sCol = "Teal" Case 11 sCol = "Green" Case 12 sCol = "Violet" Case 13 sCol = "Dark red" Case 14 sCol = "Dark yellow" Case 15 sCol = "50% gray" Case 16 sCol = "25% gray" End Select Set rDcm = Doc1.Range With rDcm.Find .Highlight = True While .Execute If rDcm.HighlightColorIndex = lClr Then If FirstFind Then Doc2.Range.InsertAfter sCol & vbCr FirstFind = False End If Doc2.Range.InsertAfter vbTab & rDcm.Text & vbCr End If Wend End With Next Else MsgBox "No Highlighting found." End If End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Eric" wrote in message ... working on a school paper. need to highlight words in paper, which I did. now need to list these highlighted words as "Themes Included" at the end of the paper. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I find duplicated words in a list in Word? | Microsoft Word Help | |||
I would like to find and replace a list of words with numbers | Microsoft Word Help | |||
How to Find Highlighted Words in a Document? | Page Layout | |||
How can I find if there are doubles in my list of words? | Microsoft Word Help | |||
how do I find repeating words in a list | Microsoft Word Help |