• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

word otomatik kopyala yapıştır

Katılım
18 Mart 2005
Mesajlar
22
Excel Vers. ve Dili
2003 Türkçe
arkadaşlar ben resmi yazılar yazarken A4 kagıdının ilk yarısına yazdığım yazının diger yarısına aynen bir düğme vasıtasıyla veya otomatik olarak yazdırılmasını istiyorum tabi mümkünse.
yani bir tane A4 kağıdında iki kopya çıktı almak istiyorum
bilmem anlatabildimmi.
excelde bunu yapmak kolay ama wordde yapmayı bilmiyorum.
yardımcı olanlara şimdiden teşekkürler.
 
Merhaba;

Ã?rnek bir dosya eklemediğiniz için tam olarak aradığınız çözüm olmayabilir ancak, aşağıdaki kod ile yapabileceğiniz şudur;

İmleci dokümanda yazının sonuna gelip, aşağıdaki makroyu çalıştırın. İmlecin üstündeki tüm metin, daha önce yazdığınız kısmın altına aynen kopyalanacaktır.

Eğer işinizi görmezse örnek bir doküman ekleyin, onun üzerinden gidelim.

Kod:
Sub Test()
    With Selection
        .HomeKey 6, 1
        .Copy
        .MoveRight 1, 1
        .TypeParagraph
        .Paste
    End With
End Sub
 
teşekkürler arkadaşım
güzel istediğim gibi olmuş ama birkaç problem var
1. ben bu yazıyı her zaman kullanıyorum makroyu her kullandığımda kopya sayısı katlanıyor benim istediğim sadece sayfanın üstündekini allt yarısısna kopyalasın.
2.ben makroyu butona atamaya çalıştım ama yapamadım. makro ya düğmeye atansın yada baskı önizleme butonuna basınca vb. şekilde otomatik olması lazım.
 
Makro belki sizin için daha iyi bir çözümdür ama ben şöyle yapıyorum.

Sayfa Yapısı > Kenar Boşlukları > Birden fazla sayfa > Her kağıda 2 sayfa

1. sayfada yazacaklarımı bitirdikten sonra Ctrl+A , Ctrl+C, Ctrl+V

Ben pek zorlanmıyorum.
 
Ali bey;

Bir de aşağıdaki dosyayı deneyin...

Sayfanın üst tarafındaki orjinal yazıda paragraf adetlerini bozmayacak şekilde düzenlemenizi yapın ve Test isimli proseduru çalıştırın.
 
Ali bey;

Aşağıdaki dosya biraz daha kullanışlıdır...
 
Hepinize çok teşekkür ederim baylar ve bayanlar ilginizden dolayı.
haluk breyin yaptığı işimi gördü ellerine sağlık
:D :oops:
 
Geri
Üst