İYİ Akşamlar, Tolstoy hocamın mb yüksek word çalışmasından yola çıkarak bir word dosyasını parçalayarak bir word dosyası içindeki sayfaları bir klasöre sayfa sayfa nasıl kayderim diye 3 gündür uğraştım..
ve sonunda başardım.. Amerikayı yeniden keşfetmişim gibi çocuklar gibi sevindim..
bu paylaşımı ihtiyaç anında lazım olur diye yapıyorum.
word sayfalarını ayrı ayrı kaydetme
1- ofice 2007 Word dosyasını boş temiz bir klasöre kopyalayın
2- word dosyasını açın- görünüm menüsünde en solda makro düğmesine tıklayın (1. resim)
3- gelen 2i örnekteki açılan menüde makro adı bölümünün altına " sayfa " diye rastgele isim yazın sonra sol tarafta oluştur butonuna tıklayın ( 2. resim)
4- oluştur butonuna tıklayınca bilgisayarınıda yüklüyse ofisle birlikte visual basic sayfası "new macros code" adı altında ayrı bir saydada visiaul basic açılır.. açılan sayfadaki kodları silin oraya aşağıdaki makro kodunu yapıştırın(visual basic sayfasına kod yazma 3. resim)
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.Inform
ation(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
5- yapıştırdıktan sonra ctrl+s (kaydet) de. Der demez word sayfasında 5. uyumluk denetleyicisi uyarısı çıkar devam tıklayın( 4. resim uyumluk) kod kaydedildi (4. resim uyumluk *devam)
6- son adım tekrar görünüm-makro gelen menüde bu sefer
(en alta ilk menüdeki gibi dosyanızın adını seçmeyi unutmayın ilk adımda da bu bölümde dosyanıızın adı olmalı.. )
üst tarafta sayfa yazdığınızın adı Makro 1 olmuştur seçin sonra çalıştıra tıklatın..
word sayfası kitlenir gibi olur sabredin.. en sonunda sayfalar başarıyla kaydedildi...
word teki tüm sayfalar kopyaladığınız klasöre sayfa sayfa yüklenecektir.. ben denedim baya uğraştım.. bazı bilgisayarlarda uyumluluk alakalı sorun olabiliyor çözüm üretme aşamasındayım.. umarım gündeminizi işgal etmemişimdir..
biradan sonucu yayınlaycağım..