word otomatik kopyala yapýþtýr

[aligedik]

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]

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.

Sub Test()
With Selection
.HomeKey 6, 1
.Copy
.MoveRight 1, 1
.TypeParagraph
.Paste
End With
End Sub

[aligedik]

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.

[Serpily]

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.

[aligedik]

Arkadaþlar bana yardýmcý olabilecek kimse yokmuu? :yardim:

[Serpily]

Ali bey,

Þaka yapýyor olmalýsýnýz.

[Haluk]

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]

Ali bey;

Aþaðýdaki dosya biraz daha kullanýþlýdýr...

[aligedik]

Hepinize çok teþekkür ederim baylar ve bayanlar ilginizden dolayý.
haluk breyin yaptýðý iþimi gördü ellerine saðlýk
:D :oops: