Bir word dosyasını ikiye bölmek

[tamer42]

Merhabalar,

200 sayfalık bir word belgesi var (Belge.doc) ve içinde her sayfada bir resim olmak üzere tamamen resimlerle dolu,

Yapmak istediğim ilk 100 sayfasını Belge_1.doc olarak kaydetmek istiyorum,

Kısaca ilk 100 sayfayı kodla Farklı kaydet yapmak istiyorum.

Yardımcı olabilirmisiniz.

İyi Çalışmalar.

 

[dEdE]

Merhaba,
Aşağıdaki kodları bir modüle kaydedin ve çalıştırın.

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 Sub

 

[tamer42]

Teşekkürler...

 

[policeman]

Merhabalar
Benimde böyle bir sorunum var...
Adres mektup birleştir usulüyle;word ile önceden hazırlanmış bir formata,excelde bulunan veri tabanından istediğim kadar veri aktarıp,bazen 20 bazen 50 yani değişik sayılarda bir belge içerisinde sayfalar oluşturuyorum...
Bu oluşturduğum belgeden sayfa sayısı kadar belge oluşturmak istiyorum!...
Yardımcı olabilirseniz çok sevinirim..
Saygılarımla...

 

[tamer42]

merhabalar,

buradaki kodla ilk 100 sayafayı alıyoruz,

sayfa 100' den sonrası almak istersek nasıl bir düzenleme yapmamız gerekli?

yani doküman toplam 200 sayfa, ben 100-200 sayfa arasını kopyalamak istiyorum.

iyi çalışmalar.

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 Sub

[/QUOTE]

 

[leumruk]

Merhaba,
Değiştirdiğim kısmı kırmızı ile belirttim.

Sub Ayır_Kaydet()

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="101"
    Selection[COLOR="DarkRed"].EndKey[/COLOR] Unit:=wdStory, Extend:=wdExtend
   
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
    
    ActiveDocument.SaveAs FileName:="Belge_1.doc"
End Sub

 

[zafer20]

Bu yardımınız dolayısıyla size çok teşekkürler...

 

[Eneserhat]

Bir ricada da ben bulunabilir miyim?

200 sayfalık Word belgemde, her 2 veya 3 sayfada bir resim (firma anteti) var. Her Word belgesi antetle başlayacak şekilde parçalara ayrılabilir mi?