Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Gordon J. Rattray Gordon J. Rattray is offline
external usenet poster
 
Posts: 21
Default 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   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default 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   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default 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   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default 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   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How to italicized the first 2 characters in an equation? Beancounter4751 Microsoft Word Help 1 June 16th 08 07:51 PM
How do I make text in the equation editor italicized by default? Jeremy O. Microsoft Word Help 3 September 27th 07 08:49 PM
italicized word in dictionary the poet Microsoft Word Help 3 August 28th 06 01:35 PM
Table of Contents and Headings Italicized for Certain Style LBinDC Microsoft Word Help 2 March 4th 05 07:21 PM
why is italicized text not showing on screen? littleholzer Microsoft Word Help 1 January 25th 05 04:48 PM


All times are GMT +1. The time now is 10:56 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"