جدول الضرب في لحظة

[أحمد الحربي]

Sub الماكرو_الرئيسي()


أعمدة

جدول_الضرب


End Sub


Sub جدول_الضرب()


Dim sumNomber As Integer

Dim i As Integer

Dim i2 As Integer

For i = 1 To 20

    For i2 = 1 To 10

        sumNomber = i * i2

        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

        Selection.BoldRun

        Selection.Font.SizeBi = 16

           Selection.Font.BoldBi = wdToggle

        Selection.TypeText Text:=i & " × " & i2 & " = " & sumNomber

        Selection.TypeParagraph

    Next

  

  Selection.TypeText Text:="-------------"

  Selection.TypeParagraph

    

Next

Selection.TypeText Text:="============"


End Sub


Sub أعمدة()


With ActiveDocument.PageSetup.TextColumns

        .SetCount NumColumns:=3

        .EvenlySpaced = True

        .LineBetween = True

        .Width = CentimetersToPoints(4.05)

        .Spacing = CentimetersToPoints(1.25)

        .FlowDirection = wdFlowRtl

End With


End Sub

تم تعديل نوفمبر 1, 2003 بواسطه أحمد الحربي

[امير عاطف]

المثال يعمل 100% (y)

مشكور :(