Collecting style text

RRB · #1 03-13-2022, 02:10 AM

Hi friends!

Is there a way that i can automatically scan my doc and extract all the text formatted with a certain char style and put that text at the end of the document?

I know a macro could do this, but I don't know how to write macros :-(

Thank You

Susan

gmayor · #2 03-13-2022, 03:24 AM

That should be simple enough. Try the following
Installing Macros

Code:

Sub Macro1()
Const sName As String = "Strong"    ' the name of the character style
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        .Style = sName
        .Text = ""
        Do While .Execute
            ActiveDocument.Range.InsertAfter orng.Text & vbCr
        Loop
    End With
End Sub

RRB · #3 03-13-2022, 05:11 AM

Works perfectly. Thank You So much!!

Susan

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Collecting data from a moving field. (I think)	dobbin004	Excel	1	01-02-2018 01:03 AM
Macro to search warning text style and replace the text color	rohanrohith	Word VBA	3	11-27-2014 01:08 PM
Matching text style to drawing object style	notarichman	PowerPoint	0	03-07-2011 11:34 AM
Collecting Metrics in Project	TimJimO	Project	0	12-29-2010 12:12 PM
Need to delete style and style text	mclan	Word	0	08-04-2008 12:05 PM