Word macro to apply styles in the selected range.

formattingNewsHeadlines.bas

Sub newsFormat()
    
    With Selection
        .Paragraphs(1).Style = "見出し 1"
        .Sentences(1).Bold = True

        .Paragraphs(2).Range.InsertBefore Text:="●"
        .Paragraphs(2).Style = "見出し 2"
        .Sentences(2).Bold = True

        .Paragraphs(3).Style = "行間詰め"
        .Paragraphs(3).LeftIndent = MillimetersToPoints(millimeters:=5)

        .Paragraphs(4).Style = "行間詰め"
        .Paragraphs(4).LeftIndent = MillimetersToPoints(millimeters:=5)
        .Paragraphs(4).Range.InsertBefore Text:="<"
        ActiveDocument.Range(Start:=.Paragraphs(4).Range.End - 1).InsertBefore Text:=">"

    End With
   
End Sub