געוואלדיג! קעטעלאג פון אלע אייערע פאנטס

[לחיים ולברכה]

טיפוגרף פון פראג האט געשריבן א מעקרו אין ווארד וואס נעמט צוזאם אלע אידישע פאנטס פונעם קאמפיוטער אויף א הערליך מסודר'דיגע אופן.

Sub ListAllFonts()
Dim oDoc As Word.Document
Dim oTable As Word.Table
Dim iCnt As Long

If MsgBox("Do you wish to build a list?" & vbCr & _
"Building a list on older systems this may take a while" & vbCr & _
vbCr & "Screen may appear frozen" & vbCr & _
"Please wait for the list to complete", _
vbQuestion + vbYesNo, "Built Font list") = vbYes Then

Application.ScreenUpdating = False

'Create new doc to list font's
Set oDoc = Application.Documents.Add

'Create table of 2 columns and as many rows as there are fontnames
Set oTable = oDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=Application.FontNames.Count + 1, _
NumColumns:=4)
With oTable
'Create table header
With .Cell(1, 1).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "שם הפונט"
End With

With .Cell(1, 2).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "תצוגת הפונט"
End With

With .Cell(1, 3).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "טקסט קצר"
End With

With .Cell(1, 4).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "שם הפונט"
End With

'Loop through Fontnames
For iCnt = 1 To Application.FontNames.Count
'Add Fontname to cell
With .Cell(iCnt + 1, 1).Range
.Font.Name = "Arial"
.Font.Size = 10
.InsertAfter Application.FontNames(iCnt)
End With

'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 2).Range
.Font.Name = Application.FontNames(iCnt)
.Font.Size = 10
.InsertAfter "אבגדהוזחטיכלמנסעפצקרשת כםןףץ 1234567890 (?!)"
End With

'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 3).Range
.Font.Name = Application.FontNames(iCnt)
.Font.Size = 16
.InsertAfter "כך נפץ התרסק על גוזל קטן שדחף את צבי למים"
End With


'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 4).Range
.Font.Name = oTable.Cell(iCnt + 1, 3).Range.Font.Name
.Font.Size = 10
If .Font.Name = "Tahoma" Then oTable.Cell(iCnt + 1, 4).Row.Delete


.InsertAfter "פונט עברי"
End With

Next iCnt

'No borders and sort table Ascending
.Borders.Enable = False
.Sort SortOrder:=wdSortOrderAscending
End With
End If
End Sub

[אנדי פעטיט]

וואס האב איך דערפון?

[נאטורליך]

אפשר קענט איר מיר זאגען וויאזוי מען עסט א מעקרוי
וואס טוה איך דערמיט? ווי קאפי איך די שורות? ביטע זיי מסביר.

[לחיים ולברכה]

אנדי, וואס דו האסט דערפון? אז א צווייטער איד וועט הנאה האבן.

נאטורליך, מ'עסט א מעקרוי זייער נאטורליך.....
עפן אויף ווארד, דרוק Alt+F8, טייפ אריין א נאמען פאר די נייע מעקרוי (למשל ListOfFonts), דערנאך דרוק Create, מעק אויס די פאר שורות וואס זענען דארט און פעיסט אריין די אויבדערמאנטע מגילה. דערנאך דרוק דעם 'ראן/סאב' קנעפל אינעם טולבאר, (ס'קוקט אויס ווי א 'פלעי' באטטאן פון א טעיפרעקארדער.)

ענטפער יעס צו זיין קשיא, און ביז אפאר סעקונדעס וועט עס זיין פארטיג. אויב האסטו נישט פארשטאנען, פרעג איבער.

[אנדי פעטיט]

חיים ברכה,

איך האב געמיינט צו פרעגען אין אנדערע ווערטער אז איך ווייס ניט אמאל וואס מען טוט דערמיט און וואס עס טוט אויף.

אין אנדערע ווערטער, ביטע זיי מסביר אז איך זאל אויך קענען הנאה האבן.

[יאנאש]

Sub ListAllFonts()
Dim oDoc As Word.Document
Dim oTable As Word.Table
Dim iCnt As Long

If MsgBox("Do you wish to build a list?" & vbCr & _
"Building a list on older systems this may take a while" & vbCr & _
vbCr & "Screen may appear frozen" & vbCr & _
"Please wait for the list to complete", _
vbQuestion + vbYesNo, "Built Font list") = vbYes Then

Application.ScreenUpdating = False

'Create new doc to list font's
Set oDoc = Application.Documents.Add

'Create table of 2 columns and as many rows as there are fontnames
Set oTable = oDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=Application.FontNames.Count + 1, _
NumColumns:=4)
With oTable
'Create table header
With .Cell(1, 1).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "שם הפונט"
End With

With .Cell(1, 2).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "תצוגת הפונט"
End With

With .Cell(1, 3).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "טקסט קצר"
End With

With .Cell(1, 4).Range
.Font.Name = "OGENBLACK"
.Font.Bold = True
.InsertAfter "שם הפונט"
End With

'Loop through Fontnames
For iCnt = 1 To Application.FontNames.Count
'Add Fontname to cell
With .Cell(iCnt + 1, 1).Range
.Font.Name = "Arial"
.Font.Size = 10
.InsertAfter Application.FontNames(iCnt)
End With

'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 2).Range
.Font.Name = Application.FontNames(iCnt)
.Font.Size = 10
.InsertAfter "אבגדהוזחטיכלמנסעפצקרשת כםןףץ 1234567890 (?!)"
End With

'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 3).Range
.Font.Name = Application.FontNames(iCnt)
.Font.Size = 16
.InsertAfter "יישר כח חיים ברוך פארן לייגן דעם מעקראו"
End With


'Set Font in Cell to Fontname and insert example text
With .Cell(iCnt + 1, 4).Range
.Font.Name = oTable.Cell(iCnt + 1, 3).Range.Font.Name
.Font.Size = 10
If .Font.Name = "Tahoma" Then oTable.Cell(iCnt + 1, 4).Row.Delete


.InsertAfter "פונט עברי"
End With

Next iCnt

'No borders and sort table Ascending
.Borders.Enable = False
.Sort SortOrder:=wdSortOrderAscending
End With
End If
End Sub

[פאטאקי08]

ווען די מעקרו איז געסעווט וואס טוה איך דערמיט נאכדעם וואס וועט מיר עס העלפן ווי?

[נאטורליך]

לחיים, עשיתי ככל אשר דברת אבער אנשטאט די אידישע אויתיות זעה איך נאר ????. וואב מיינט דאס?

[פאטאקי08]

אויף רוב פאנטס גיט ער מיר מיין דיפאלט פאנט

[פאטאקי08]

וואס איז פשט פון דעם
If .Font.Name = "Tahoma" Then oTable.Cell(iCnt + 1, 4).Row.Delete
וואס מאכט דאס אן פראבלעמן צו וואס?

[לחיים ולברכה]

פאטאקי; 1) כ'פארשטיי נישט דיין פראגע. 2) קוקט אויס אז רוב פאנטס זענען שוין נישט אקטיוו, ביי מיר איז אויך אזוי אויף די פאנטס וואס ארבייטן נישט מיט ווינדאויס עקס פי. 3) דער פשט פונעם שורה ווייסעך נישט. כ'האב בכלל נישט קיין שייכות מיט די שפראך, כ'האב דאס נאר אראפגעברענגט לטובת הציבור.

יאנאש; האסט עפעס משנה געווען? אדער פלעין געקאפיט?

נאטורליך; וואסערע ווינדויס נוצטו? און וואסערע ווארד?

[יאנאש]

חיים ברוך, מאך א מעקראו דערפון העסטו זעהן אויב כאב עפעס געטוישט, עס איז א געהיימע קאוד פון מיר צו דיר.

[נאטורליך]

ווינדואס xp און ווארד 2003

[פאטאקי08]

אה הייסט איך האב גענומען יאנאש'ס ווערסיע און געמיינט אז סאיז חיים ברוך
כא כא כא כא כא כא

יאנאש קענסט טאקע גוט ווי בי?

[פאטאקי08]

מענין לענין וואס איז טאקע פשט פון דעם משוגענעם זאץ

די קעצעלע איז ארויפגעשפרינגען אויפ באק...

וואס קומט ארויף ביי יעדע פאנט

[יאנאש]

איך קען בכלל נישט ווי בי.

[לחיים ולברכה]

חחחחחחחחחחחחח

כאבעס נישט פרובירט, נאר איבערגעקוקט דיין מעקרוי. ס'איז גוט.

אז דו ווילסט קענסטו טוישן צו "די קעצעלע איז ארויפגעשפרינגען אויפ'ן באק... "

[אלץ-ווייסער]

ביי מיר קומען אלע פאונטס ארויף ?????
????
חוץ די נומערן זעט מען יא.

איך האב וויסטע (מלשון תוהו ובוהו) און אפיס תשס"ג למספ'.

[לחיים ולברכה]

אלץ ווייסער און נאטורליך, כ'קאן אייך באמת נישט העלפן. אפשר וועט דע פאקט קענען העלפן.

מיט אנטשולדיגונג.

[thefact]

אלץ ווייסער און נאטורליך;
אין די IDE (די VBA ווינדא) זעסטו יא די אותיות געהעריג?

[פיקח]

פאר די אלע וואס האבן קאמפלעינט אז עס קומט אויס אזוי ?????????????????? אנשטאט די געהעריגע אותיות וועל איך אצינד ארויסהעלפן.
די סיבה פארוואס דאס געשעט איז ווייל מען קאפיעט עס גלייך פון די קרעטשמע ארויף אויף די וויזיאעל בעיסיקס, און דאס מאכט די קונצן ווייל VB ארבעט נישט געהעריג מיט אידיש.
די עצה פארדעם איז צו קאפיען גלייך פון דא צו ווארד, און נאכדם עס נאך אמאל קאפיען צו VB.

[נאטורליך]

איך האב אזוי געטון און עס קומט נאך אלץ ארויך נאר ??? מארקס

[פיקח]

אין מיטן פון די קויד איז דא איין פלאץ ווי עס שטיי אלע אלף בית אין א סדר, גיב א קוק אויב ווען די פעיסט עס אריין אין ווארד קומט עס אויס אין א"ב אדער אין ?????, נאכדעם עמיר זעהן ווייטער.

[נאטורליך]

אין די ווארד פייל קען איך זעהן דעם א.ב.

[פיקח]

אין די ווארד פייל קען איך זעהן דעם א.ב.

און וואס טוט זיך מיט VB קענסט דארט אויך זעהן די א.ב. אדער נישט???