Word VisualBasic Script

Sub act()
    Set FirstPara = ActiveDocument.Paragraphs(1).Range
End Sub