Not to Sure

[Steved]

Hello Steved
I am not sure how to put the below in my macro
I want it to search for the Font Arial 30 and in each line that is found
run the macro on each line that has Arial = 30 Thankyou.

Sub dictionary3()

Dim oPrg As Paragraph
Dim sTmp As String
Dim lPos As Long

For Each oPrg In ActiveDocument.Range.Paragraphs
oPrg.Range.Select
Selection.Collapse
Selection.Bookmarks("\line").Select
sTmp = Selection.Bookmarks("\line").Range.Text
sTmp = Left(sTmp, Len(sTmp) - 1)
lPos = InStr(1, sTmp, " ")
lPos = InStr(lPos + 1, sTmp, " ")
sTmp = Right(sTmp, Len(sTmp) - lPos)
lPos = InStr(sTmp, "(")
sTmp = Left(sTmp, lPos - 2)
Selection.Bookmarks("\line").Range.Text = sTmp & Chr
(11)
Next
End Sub