No it's local.
i found that script:
How Can I Extract Word Paragraphs That Use a Specific Style? | Scripting Blog
how can i change the file name to the document that is open?


Set objWord = CreateObject(“Word.Application”)

objWord.Visible = True

Set objDoc = objWord.Documents.Open(“C:\Scripts\Test.doc”)

Set objSelection = objWord.Selection

Set colParagraphs = objDoc.Paragraphs


For Each objParagraph in colParagraphs

If objParagraph.Style <> “Heading 1” Then

objParagraph.Range.Select

objSelection.Cut

End If

Next


objDoc.SaveAs(“C:\Scripts\Headings.doc”)

objWord.Quit