Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-01-2009, 17:31   #1
tamer42
Destek Ekibi
 
tamer42 kullanıcısının avatarı
 
Giriş: 11/03/2005
Şehir: Ankara
Mesaj: 1,182
Excel Vers. ve Dili:
Office 2013 İngilizce
Varsayılan Bir word dosyasını ikiye bölmek

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.
tamer42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2009, 18:18   #2
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

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



Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-01-2009, 09:50   #3
tamer42
Destek Ekibi
 
tamer42 kullanıcısının avatarı
 
Giriş: 11/03/2005
Şehir: Ankara
Mesaj: 1,182
Excel Vers. ve Dili:
Office 2013 İngilizce
Varsayılan

Teşekkürler...
tamer42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2009, 02:10   #4
policeman
Altın Üye
 
Giriş: 01/09/2007
Şehir: İstanbul
Mesaj: 316
Excel Vers. ve Dili:
2002 Türkçe
Varsayılan

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...
policeman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-05-2011, 19:42   #5
tamer42
Destek Ekibi
 
tamer42 kullanıcısının avatarı
 
Giriş: 11/03/2005
Şehir: Ankara
Mesaj: 1,182
Excel Vers. ve Dili:
Office 2013 İngilizce
Varsayılan

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.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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]
tamer42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-05-2011, 19:59   #6
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Merhaba,
Değiştirdiğim kısmı kırmızı ile belirttim.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Ayır_Kaydet()

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="101"
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
   
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
    
    ActiveDocument.SaveAs FileName:="Belge_1.doc"
End Sub
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-04-2013, 21:37   #7
zafer20
 
Giriş: 28/04/2013
Şehir: Denizli
Mesaj: 1
Excel Vers. ve Dili:
-
Smile

Bu yardımınız dolayısıyla size çok teşekkürler...
zafer20 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-08-2016, 09:08   #8
Eneserhat
Altın Üye
 
Giriş: 16/09/2011
Şehir: İstanbul
Mesaj: 26
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan

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?
Eneserhat Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 01:05


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden