merhaba arkadaşlar benim 400 sayfalık bir word dosyam ver içinde resim vs. var, bu belgenin boyutu çok yüksek 120 mb civarında ben bu belgeyi 500 kb lık belgeler halinde ayırmak istiyorum, örneğin 1-10 sayfa alınıp farklı bir belge olarak kaydedilcek aynı şekilde 11-22 sayfa alınıp farklı bir belge olarak kaydedilecek,
buraya yazmadan önce yaptığım incelemelerde iki çeşit makroya rastladım;
bir tanesi çalışıyor ancak 1. sayfa dan itibaren sizin belirttiğiniz sayfaya kadar ayırıyor, yani 1- 20 arası 1-50 arası gibi 20-30 arası ayırmıyor. işte o makro :
bulduğum ikinci makro da çalışmıyor ancak kod şu şekilde belki yardımcı olur :
yardımcı olursanız çok sevinirim kaç gündür uğraşıyorum yapamadım
buraya yazmadan önce yaptığım incelemelerde iki çeşit makroya rastladım;
bir tanesi çalışıyor ancak 1. sayfa dan itibaren sizin belirttiğiniz sayfaya kadar ayırıyor, yani 1- 20 arası 1-50 arası gibi 20-30 arası ayırmıyor. işte o makro :
Kod:
Sub Ayır_Kaydet()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="101"
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.SaveAs FileName:="Belge_1.doc"
End Subbulduğum ikinci makro da çalışmıyor ancak kod şu şekilde belki yardımcı olur :
Kod:
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 Subyardımcı olursanız çok sevinirim kaç gündür uğraşıyorum yapamadım
