Re: איך זוך א פאנט...
אידישע אותיות פאר פרי?
למעלה משבעים האט געשריבן: ↑ מאנטאג יאנואר 18, 2010 9:53 pmמיינסט צו פרעגן וויזוי מען עסט דעם מאקרו?
דא שטייט וויזוי, אין 07 איז עס די זעלבע. אדער איז דיין שאלה דאס ?
אגב שמערי איך האב עפעס צוגעלייגט צו דיין מאקרו.קאוד: וועל אויס אלע
Sub ListAllFonts() Application.ScreenUpdating = False Dim J As Integer Dim FontTable As table 'Start off with a new document Set NewDoc = Documents.Add 'Add a table and set the table header Set FontTable = NewDoc.Tables.Add(Selection.Range, FontNames.Count + 1, 2) With FontTable .Borders.Enable = False .Cell(1, 1).Range.Font.Name = "Arial" .Cell(1, 1).Range.Font.Bold = 1 .Cell(1, 1).Range.InsertAfter "Font Name" .Cell(1, 2).Range.Font.Name = "Arial" .Cell(1, 2).Range.Font.Bold = 1 .Cell(1, 2).Range.InsertAfter "Font Example" End With 'Go through all the fonts and add them to the table For J = 1 To FontNames.Count With FontTable .Cell(J + 1, 1).Range.Font.Name = "Arial" .Cell(J + 1, 1).Range.Font.Size = 10 .Cell(J + 1, 1).Range.InsertAfter FontNames(J) .Cell(J + 1, 2).Range.Font.Name = FontNames(J) .Cell(J + 1, 2).Range.Font.Size = 10 .Cell(J + 1, 2).Range.InsertAfter "ABCDabcdאבגדהוז 1234567890" End With Next J FontTable.Sort SortOrder:=wdSortOrderAscending Application.ScreenUpdating = True End Sub
דאס איז א מאקרוי צו ליסטן אין א טעיבל אלע פאנטס וואס מ'האט וואס איז געווען דא יארן צוריק
ס'איז אבער גאר אלט און כאטש ס'ארבעט נאך זאגט די קאמפיוטער אז ס'איז נישט געמאכט פאר זיינע צייטן און ס'קען מאכן קונצן
ווייסט איינער פון א היינטיגע פאר דעם אדער קען איינער דאס עדיטן?
