save QM code as a word file

[Kevin]

this should work for you uses wildcards

Code:

Copy      Help

Word.Find f=app.Selection.Find
f.ClearFormatting
f.Text="#sub *"
f.MatchWildcards = 1
rep
,if(!f.Execute)
,,break
,app.Selection.ParagraphFormat.Borders.Item(wdBorderTop).LineStyle = wdLineStyleSingle

---

or maybe even better .. finds #sub that is a specific color

Code:

Copy      Help

Word.Find f=app.Selection.Find
f.ClearFormatting
f.Font.Color = 4210943
f.Text="#sub"
rep
,if(!f.Execute)
,,break
,app.Selection.ParagraphFormat.Borders.Item(wdBorderTop).LineStyle = wdLineStyleSingle