Search an expression (code) and turn the whole line into heading

[ruthburks]

Hello, you can try this code: geometry dash scratch

Sub head6_to_heading()
    Dim doc As Word.Document
    Dim rng As Word.Range
    Set doc = ActiveDocument
    Set rng = doc.Content
    With rng.Find
        .Text = "(head-"
        .MatchCase = False
        .MatchWholeWord = False
        .Wrap = wdFindStop
        Do While .Execute
            rng.Paragraphs(1).Range.Style = doc.Styles("Heading 6")
        Loop
    End With
End Sub