word dosya ismi değiştirme makrosu

[amphoral]

Sub Makro1()
Dim docC As Document
Dim docN As Document
Dim i As Integer
Dim k As Integer
Selection.HomeKey Unit:=wdStory
Set docC = ActiveDocument
k = ActiveDocument.Content.Information(wdActiveEndPageNumber)
Application.Browser.Target = wdBrowsePage
For i = 1 To k
docC.Bookmarks("\page").Range.Copy
Set docN = Documents.Add
Selection.Paste
Selection.TypeBackspace
docN.SaveAs ThisDocument.Path & "\Sayfa" & i & ".doc"docN.Close SaveChanges:=wdDoNotSaveChanges
Application.Browser.Next
Next i
MsgBox "Sayfalar başarıyla kaydedildi.", vbInformation, "DURUM"
End Sub

çok sayfalı bir word dosyasını sayfalar bölmek istiyorum.
dosya ismini sayfa1 sayfa 2 olarak veriyor.
bu makroda word ün ilk satırını dosya adı olarak belirlemesini nasıl sağlarım...

yardımlar için teşekkürler