Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
pick out all italicized words?
Hi there,
I've got my 120 page document and pretty well all the highlights of the document are in italics as I did that so the reader could see emphasized words. These italicized words would make the perfect index. I know the find mechanism can find just the italic words, but seems only one by one.... Now, how can I pick out all the italicized words and put them into a concordance file to automark index entries? Thanks, Gordon |
#2
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
pick out all italicized words?
In recent versions of Word you can use Find All to select all items found;
in Word 2003 (and maybe 2002?) you check the box for "Highlight all items found" (where "highlight" actually means "select"), then click Find All; in Word 2007, you click "Find in" and choose "Main document." -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Gordon J. Rattray" wrote in message ... Hi there, I've got my 120 page document and pretty well all the highlights of the document are in italics as I did that so the reader could see emphasized words. These italicized words would make the perfect index. I know the find mechanism can find just the italic words, but seems only one by one.... Now, how can I pick out all the italicized words and put them into a concordance file to automark index entries? Thanks, Gordon |
#3
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
pick out all italicized words?
Running a macro containing the following code will make a concordance table containing the italicized words:
Dim myrange As Range Dim Source As Document, Target As Document Dim ttable As Table Set Source = ActiveDocument Set Target = Documents.Add Set ttable = Target.Tables.Add(Target.Range, 1, 2) Source.Activate Selection.HomeKey wdStory Selection.Find.Font.Italic = True With Selection.Find Do While .Execute(FindText:="", Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True With ttable .Cell(.Rows.Count, 1).Range.Text = Selection.Range .Cell(.Rows.Count, 2).Range.Text = Selection.Range .Rows.Add End With Selection.Collapse wdCollapseEnd Selection.MoveRight wdCharacter, 1 Loop End With ttable.Rows(ttable.Rows.Count).Delete Target.Activate -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon J. Rattray" wrote in message ... Hi there, I've got my 120 page document and pretty well all the highlights of the document are in italics as I did that so the reader could see emphasized words. These italicized words would make the perfect index. I know the find mechanism can find just the italic words, but seems only one by one.... Now, how can I pick out all the italicized words and put them into a concordance file to automark index entries? Thanks, Gordon |
#4
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
pick out all italicized words?
In recent versions of Word you can use Find All to select all items found; in Word 2003 (and maybe 2002?) you check the box for "Highlight all items found" (where "highlight" actually means "select"), then click Find All; in Word 2007, you click "Find in" and choose "Main document." -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Gordon J. Rattray" wrote in message ... Hi there, I've got my 120 page document and pretty well all the highlights of the document are in italics as I did that so the reader could see emphasized words. These italicized words would make the perfect index. I know the find mechanism can find just the italic words, but seems only one by one.... Now, how can I pick out all the italicized words and put them into a concordance file to automark index entries? Thanks, Gordon |
#5
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
pick out all italicized words?
Running a macro containing the following code will make a concordance table containing the italicized words:
Dim myrange As Range Dim Source As Document, Target As Document Dim ttable As Table Set Source = ActiveDocument Set Target = Documents.Add Set ttable = Target.Tables.Add(Target.Range, 1, 2) Source.Activate Selection.HomeKey wdStory Selection.Find.Font.Italic = True With Selection.Find Do While .Execute(FindText:="", Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True With ttable .Cell(.Rows.Count, 1).Range.Text = Selection.Range .Cell(.Rows.Count, 2).Range.Text = Selection.Range .Rows.Add End With Selection.Collapse wdCollapseEnd Selection.MoveRight wdCharacter, 1 Loop End With ttable.Rows(ttable.Rows.Count).Delete Target.Activate -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon J. Rattray" wrote in message ... Hi there, I've got my 120 page document and pretty well all the highlights of the document are in italics as I did that so the reader could see emphasized words. These italicized words would make the perfect index. I know the find mechanism can find just the italic words, but seems only one by one.... Now, how can I pick out all the italicized words and put them into a concordance file to automark index entries? Thanks, Gordon |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to italicized the first 2 characters in an equation? | Microsoft Word Help | |||
How do I make text in the equation editor italicized by default? | Microsoft Word Help | |||
italicized word in dictionary | Microsoft Word Help | |||
Table of Contents and Headings Italicized for Certain Style | Microsoft Word Help | |||
why is italicized text not showing on screen? | Microsoft Word Help |