merhaba arkadaşlar. 30 sayfalık tek bir word dosyasının her bir sayfasını ayrı word dosyaları olarak nasıl kaydedebilirim yardımcı olursanız sevinirim. şimdiden teşekkür ederim. iyi çalışmalar. (sitede aşağıdaki kodları buldum macro olarak ekledim ama çalıştıramadım veya çalışmıyor)
Sub Sayfayi_Ayir_Kaydet()
' alttaki satıra tırnak içine yeni sayfaların kaydedileceği klasör yolu yazılacak...
Const strPath = "D:\Yeniklasor"
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(wdActiveEndPage Number)
' ayırıcı kriter=sayfa
Application.Browser.Target = wdBrowsePage
' alttaki satırda kaçıncı sayfadan kaçıncı sayfaya kadar kaydedileceğini belirtiyoruz...
' burada 1.den sona kadardır. Mesela 5 ila 10. sayfaları istersen For i = 5 To 10 şeklinde
' değiştir...
For i = 1 To k
docC.Bookmarks("\page").Range.Copy
Set docN = Documents.Add
Selection.Paste
Selection.TypeBackspace
docN.SaveAs FileName:="Sayfa" & i & ".docx", FileFormat:=wdFormatDocument, _
AddToRecentFiles:=False
docN.Close SaveChanges:=wdDoNotSaveChanges
' Move the selection to the next page in the document.
Application.Browser.Next
Next i
docC.Close SaveChanges:=wdDoNotSaveChanges
End Sub
Sub Sayfayi_Ayir_Kaydet()
' alttaki satıra tırnak içine yeni sayfaların kaydedileceği klasör yolu yazılacak...
Const strPath = "D:\Yeniklasor"
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(wdActiveEndPage Number)
' ayırıcı kriter=sayfa
Application.Browser.Target = wdBrowsePage
' alttaki satırda kaçıncı sayfadan kaçıncı sayfaya kadar kaydedileceğini belirtiyoruz...
' burada 1.den sona kadardır. Mesela 5 ila 10. sayfaları istersen For i = 5 To 10 şeklinde
' değiştir...
For i = 1 To k
docC.Bookmarks("\page").Range.Copy
Set docN = Documents.Add
Selection.Paste
Selection.TypeBackspace
docN.SaveAs FileName:="Sayfa" & i & ".docx", FileFormat:=wdFormatDocument, _
AddToRecentFiles:=False
docN.Close SaveChanges:=wdDoNotSaveChanges
' Move the selection to the next page in the document.
Application.Browser.Next
Next i
docC.Close SaveChanges:=wdDoNotSaveChanges
End Sub