Creating a list of all text in a specific style

ljd108 · #1 10-08-2014, 10:48 AM

Hi,

I have created a new style in word and am using this in a document with a large amount of other styles.

I need to create a list of the text containing this specific style at the end of the document. Is there a macro that I could use to do this as I need to do it on multiple documents?

Thanks

gmaxey · #2 10-08-2014, 01:15 PM

What kind of style? Here is one way to list all text with the "Strong" character style applied:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
  With oRng.Find
    .Style = "Strong"
    While .Execute
      ActiveDocument.Range.InsertAfter vbCr & oRng
      ActiveDocument.Paragraphs.Last.Range.Style = "Normal"
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

ljd108 · #3 10-08-2014, 03:29 PM

Hi,

The style I am using is my own custom style and it is called "Glossary Pop-up" would that cause an issue at all? When I run the macro nothing happens?

Thanks

gmaxey · #4 10-08-2014, 03:33 PM

I created a style call Glossary Pop-up and it worked fine. Without seeing your document, it is hard to say.

Did you run the code or try to run it I break mode?

ljd108 · #5 10-08-2014, 03:37 PM

Sorry, I am pretty new to this! What is the difference between running the code and in break mode?

Thanks again

gmaxey · #6 10-08-2014, 03:44 PM

Stepping throughout the code using the F8 key would be one example of break mode. Clicking in the procedure and select "Run" would run the code.

ljd108 · #7 10-08-2014, 03:46 PM

I have used the run code.

It is strange, I have opened up a new docuemnt and used the macro on a small amount of text but when I use it on a larger document with lots of other styles (including headings etc) it does not work?

gmaxey · #8 10-08-2014, 04:08 PM

Would have to see the document.

ljd108 · #9 10-08-2014, 04:17 PM

]Hi,

I have attached a text document if that is any help?

gmaxey · #10 10-08-2014, 05:02 PM

Code runs fine here in that document. It does not contain any text formatted with Glossary Pop-up style though.

ljd108 · #11 10-08-2014, 05:09 PM

Hi,

Thanks for taking a look, I do have words selected as 'glossary pop-up' in mine, these are only 'characters' rather than 'paragraphs' though, does that make a difference?

Thanks

gmaxey · #12 10-08-2014, 05:20 PM

Ok, I see it now still runs without error. Change to this and it runs and adds your Words to the end:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
  With oRng.Find
    .Style = "Glossary Pop-up Char"
    While .Execute
      ActiveDocument.Range.InsertAfter vbCr & oRng
      ActiveDocument.Paragraphs.Last.Range.Style = "Normal"
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

ljd108 · #13 10-08-2014, 05:22 PM

Thank you very very much, all works fine now

ljd108 · #14 10-08-2014, 05:35 PM

Sorry to add another question.

Is there also a way of creating a list of text that is not using the style set within a document?

gmaxey · #15 10-08-2014, 06:40 PM

All text in a document has some style applied so it is therefore impossible to add a list at the end of a document that in not styled with a style contained in the document.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to set the left indent in a specific style.	OfficeBoy95	Word	2	05-12-2014 06:31 PM
List Style Numbering picks up out of order number from LATER list	spthomas	Word	12	12-16-2013 05:23 PM
How to set style automatically for specific texts	ragesz	Word	2	07-25-2013 07:08 AM
I create a new style but it fails to appear in Quick Style list	veronius	Word	6	06-18-2013 06:29 PM
Get list of text of a style	mavera2	Word	0	03-19-2010 01:59 AM