Как подкорректировать макрос так, чтобы названием документа на выходе были первые два слов - VB

Формулировка задачи:

макрос:

Sub BreakOnPage()
' Used to set criteria for moving through the document by page.
Application.Browser.Target = wdBrowsePage

For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")

'Select and copy the text to the clipboard
ActiveDocument.Bookmarks("\page").Range.Copy

' Open new document to paste the content of the clipboard into.
Documents.Add
Selection.Paste
' Removes the break that is copied at the end of the page, if any.
Selection.TypeBackspace
ChangeFileOpenDirectory "C:\Users\Алла\Desktop\Исторические портреты"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close

' Move the selection to the next page in the document
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

что нужно написать в этой вот части

ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"

чтобы в названии документа были первые два слова этого документа, а не "test_" & DocNum

Решение задачи: «Как подкорректировать макрос так, чтобы названием документа на выходе были первые два слов»

textual
                            Листинг программы 
                        
                            ThisDocument.Range.Words(1)
ThisDocument.Range.Words(2)