WORD'de boş sayfa eklemek

[yesman]

Arkadaşlar, hepinize selam...Bende 38.sayfadan başlayan bir WORD dökümanı var ben bu dökümana ilk 38 sayfa eklemek istiyorum, yani 1'den 37'e kadar sayfa numaraları verilmiş boş WORD sayfaları eklemek istiyorum. Bunu nasıl yapabilirim?

 

[Necdet]

1. sayfanın ilk satırın başına imleci koyup, Ctrl+Enter yaparsanız boş sayfa açılır.
bunu istediğiniz kadar tekrarlayın F4 tuşu ile

 

[abdi]

Sub Makro2()
    Dim i, son As Integer
    For i = 1 To 37
          Selection.InsertBreak Type:=wdPageBreak
          Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
End Sub

Yukarıdaki makroyu Wordun vba sayfasını açıp yapıştırıp F5 tuşuna basarak makroyu çalıştırdığınızda word belgenize 37 adet boş sayfa eklemiş olursunuz.

Saygılar sevgiler
Çalışmalarınzda Başarılar Dilerim.

 

[yesman]

Cevaplarınız için teşekkürler, :hey: