Kod Kısaltma

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar "Makro Kaydet" ile şöyle bir kod oluştu.

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph

Bu kodu kısaltabilir miyiz?, teşekkür ediyorum, Allah razı olsun...

Not : Yukarıdaki kod(lar) pragraf sayılarını gösterir.

 

[Haluk]

Döngü kullanabilirsiniz...

    For i = 1 To 6
        Selection.TypeParagraph
    Next

 

[Seyit Tiken]

Haluk abe çook teşekkür ediyorum, kolay gelsin...