Highlight specifc text plus 15 characters afterwards

[gentle2005]

Hi,

1. I would like to highlight all the words "Specification" and "red marked"(30 characters) items along with it in the attached file. It has 1000+ pages. Need macro to highlight all occurrences. i.e(specification+30characters)

2. Is it possible to insert the Red marked Specification into the table next to "Range" column in word?

3.Can we export the specification along with 30 characters and its file name as separate column in excel file?


Please through some VBA action into this task.

[gmayor]

1: -

Sub HighlightSpec()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Font.ColorIndex = wdRed
        Do While .Execute(Forward:=True)
            If Len(oRng) > 1 Then
                oRng.Start = oRng.Start - 14
                oRng.HighlightColorIndex = wdTurquoise
                'Debug.Print oRng.Text
            End If
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub

2: - No idea what that means
3: - Probably, but you'll have to clarify what exactly you want and where you want it.
Within the loop, oRng.text is the specification and the preceding characters.
Which Filename?

[gentle2005]

Thanks. I am sorry I could not explain you well .Actually I want to convert the attached word file into excel data list as attached.