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.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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
 
Katılım
18 Mart 2005
Mesajlar
22
Excel Vers. ve Dili
2003 Türkçe
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.
 
Katılım
28 Temmuz 2004
Mesajlar
275
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.
 
Katılım
18 Mart 2005
Mesajlar
22
Excel Vers. ve Dili
2003 Türkçe
Arkadaşlar bana yardımcı olabilecek kimse yokmuu? :yardim:
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Ali bey;

Aşağıdaki dosya biraz daha kullanışlıdır...
 
Katılım
18 Mart 2005
Mesajlar
22
Excel Vers. ve Dili
2003 Türkçe
Hepinize çok teşekkür ederim baylar ve bayanlar ilginizden dolayı.
haluk breyin yaptığı işimi gördü ellerine sağlık
:D :oops:
 
Üst