أحمد الحربي قام بنشر نوفمبر 1, 2003 مشاركة قام بنشر نوفمبر 1, 2003 (معدل) 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 بواسطه أحمد الحربي 1 رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر نوفمبر 1, 2003 مشاركة قام بنشر نوفمبر 1, 2003 المثال يعمل 100% (y) مشكور :( رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.