Word Sayfalarını Ayırmak

[msinan987]

Arkadaşlar benim sorunum elimde 1 adet Word Belgesi var ve içerisinde 200 kadar sayfa var ve her sayfanın konusu farklı. ben bu Word belgesindeki sayfaları ayrı ayrı tek Sayfalı Word belgesi olarak kaydetmek istiyorum. Bunu en kısa yoldan nasıl yapabilirim. yardımcı olursanız sevinirim.

 

[necati]

Merhaba arkadaşım,
Kısa bir süreliğine internetteyim. Alttaki makroyu incele, soruların olursa diğer arkadaşların ilgileneceklerini sanıyorum. Kolay gelsin.

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(wdActiveEndPageNumber)
' 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

 

[msinan987]

Merhaba arkadaşım,
Kısa bir süreliğine internetteyim. Alttaki makroyu incele, soruların olursa diğer arkadaşların ilgileneceklerini sanıyorum. Kolay gelsin.

Göndermiş olduğun bu makroyu nasıl atayacağım. Bu konuda bilgi verirsen sevinirim