How to repeatedly set the format in word?

[kyjdp]

Can I run the macro of created by VBA in QM?
If someone makes a tool, I can convert the VBA macro into QM code, it's great


Sub SelectRange()
Dim rngParagraphs As Range
Set rngParagraphs = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End)
rngParagraphs.Select
End Sub