office word de yer alan soruları karıştırma

[loveme]

yapmak istediğim birincisi
1 den 27 ye kadar world dosyalarının tamamını birleştirmek ve tek world dosyası haline getirmek daha sonra her bir world dosyasında 1 den 10 kadar soruların yerlerini otomatik olarak nasıl değiştirebilirim?
teşekkürler

[TRWE_2012]

Merhabalar Forumdaşlar Ve Misafirler

Bugünlerde biraz rahatsızlığım var (grib+nezne'ye yakalandım) ama siz forum üyelerinden gelen soruları elimden geldiğince kendi pc tecrübelerim doğrultusunda sayın admin'in yokluğunda (her ne kadar ben admin gibi olamam ama onun yokluğunu da aratmamaya çalışmaktayım;Allah(c.c) Velociraptor'a (tarkandost) uzun ömürler versin...) yardımcı olmaya çalışıyorum.

Değerli Loveme ;

Sorunun birinci kısmını cevaplandırıyorum.
_________________________________________________________________________________________________________________________________


1."Ekle" sekmesine tıklayınız



2.Nesne"yi bulunuz, yanındaki küçük üçgene basınız, ve açılır menüden "Dosyadan Metin" seçeneğini tıklatınız.



Bundan sonra geçerli belgeyle birleştirilecek dosyaları seçebilirsiniz. Birden fazla belge seçmek için Ctrl tuşunu basılı tutunuz.

Not 1: Üst kısma yerleştirilen belgeler ilk olarak birleştirilecektir. Bu yüzden, belgeleriniz için belli bir sıralamayı korumak istiyorsanız, lütfen her bir hedef belgeyi sıralayın ve numaralandırınız.



Not 2:

Bu açıklamalar Word 2007/2010/2013/2016 için geçerlidir. Dikkat: Belgeleri birleştirirken biçimlendirmeler eskisi gibi kalmayabilir. Lütfen, buna dikkat ediniz.

TRWE_2012
Düzce_Akçakoca_2017

[TRWE_2012]

Bunun için Word makrosuna ihtiyaç var gibi.....Bir araştırma ve arşivimime bakmam lazım böyle bir makro var mı? yok mu? diye....Yoksa oluşturacağım bir şekilde.....

Aşağıdaki makro yeni baştan düzenlendi (İnşallah Çalışır) [Pek fazla Makrolarla çalışan biri değilim.Çünkü Makroları Güvenlik Açığı ve Tehlikeli Görmekteyim.Bu konuda dikkatli olun]

Kod: Tümünü seç

Sub Makro1()
aranan = Array("1", "2", "3", "4", "5", "6", "7", "8" , "9" , "10" )
soru = Array("1", "2", "3", "4", "5", "6", "7", "8" , "9" , "10")
For x = LBound(aranan) To UBound(aranan)
    With Selection.Find
        .Text = aranan(x)
        .Random.Text = soru(x)
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
MsgBox "İşlem tamamlandı.", vbInformation, "sordumnetforum"
End Sub

Word Makrosu Nedir?
__________________________________________________________________________________________________________________________________
Word'de makrolar oluşturarak ve çalıştırarak sık kullanılan görevleri otomatik hale getirebilirsiniz. ... Önce makroyu kaydedin. Daha sonra Hızlı Erişim Araç Çubuğu'nda bir düğmeyi tıklatarak veya bir tuş birleşimine basarak makroyu çalıştırabilirsiniz.

Word'de Makro Nasıl Kayıt Edilir?
___________________________________________________________________________________________________________________________________

1.Düğmeyle makro kaydetme
2.Görünüm > Makrolar > Makro Kaydet'i tıklatın.
3.Makro için bir ad yazın.
4.Oluşturduğunuz tüm yeni belgelerde bu makroyu kullanmak için Makronun saklanacağı yer kutusunda Tüm Belgeler (Normal.dotm) yazdığından emin olun.
5.Makronuzu bir düğmeyi tıklattığınızda çalıştırmak için Düğme'yi tıklatın.

Aşağıdaki site 'de Word ve Ofis İçin Birçok Faydalı Görsel İçerik Bulunmaktadır.

http://www.seyretogren.com/video/word-2 ... olusturma/

TRWE_2012
Düzce_Akçakoca_2017

[loveme]

merhaba trwe iş yerimde fibre var evde deneyeceğim.
macroyuda deneyeceğim
teşekkürler