איך זוך א פאנט...
די אחראים: זייער נייגעריג,אחראי,thefact
פאר קנאפע דריי און צוואנציג חדשים צוריק האט שוין חיים ברוך דא געפאוסט א מעקראו צו מאכן א פאנט ליסט.
און פונקט ווי איצטער זענען געווען אידן וואס האבן באקומען ???? אנשטאט אותיות, און דארט האט שוין פיקח אראפגעברענגט די עצה צו דעם פראבלעם.
אויב עס קומט ארויף ???? אנשטאט אותיות דאן דארף מען טשעקן די סעטינגס ביי לענגוויטש סעטינגס, וועלכע שפראך עס איז אנגעשטעלט ביי יוניקאוד
נוצט עס געזונטערהייט
און פונקט ווי איצטער זענען געווען אידן וואס האבן באקומען ???? אנשטאט אותיות, און דארט האט שוין פיקח אראפגעברענגט די עצה צו דעם פראבלעם.
אויב עס קומט ארויף ???? אנשטאט אותיות דאן דארף מען טשעקן די סעטינגס ביי לענגוויטש סעטינגס, וועלכע שפראך עס איז אנגעשטעלט ביי יוניקאוד
נוצט עס געזונטערהייט
אפשר באגרעניצט מען די צאל חתימות וואס איין ניק מעג האבן פער וואך?
- שמערי בערי
- מ. ראש הקהל
- תגובות: 9165
- זיך איינגעשריבן אום: מאנטאג אפריל 28, 2008 4:40 pm
- לאקאציע: באַזאָטלט אינעם ראשעקאָלישן אפיס....
- פארבינד זיך:
- למעלה משבעים
- שר עשרת אלפים
- תגובות: 12397
- זיך איינגעשריבן אום: זונטאג מארטש 02, 2008 10:17 pm
- לאקאציע: ערגעץ פארבלאנדזשעט אויף די גראדע וואסערן
מיינסט צו פרעגן וויזוי מען עסט דעם מאקרו?
דא שטייט וויזוי, אין 07 איז עס די זעלבע. אדער איז דיין שאלה דאס?
אגב שמערי איך האב עפעס צוגעלייגט צו דיין מאקרו.
דא שטייט וויזוי, אין 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
- שמערי בערי
- מ. ראש הקהל
- תגובות: 9165
- זיך איינגעשריבן אום: מאנטאג אפריל 28, 2008 4:40 pm
- לאקאציע: באַזאָטלט אינעם ראשעקאָלישן אפיס....
- פארבינד זיך:
- קהת
- שר האלפיים
- תגובות: 2995
- זיך איינגעשריבן אום: דאנערשטאג דעצעמבער 10, 2009 1:18 pm
- לאקאציע: דארט ווי איך בין!!!
שכויעך שמערי בערי פאר דיין העלפ עס איז מיר געגאנגען יעצט די ערשטע מאל נאכן פראבירן עטליכע מאל!
אין שכויעך פאר דיר סאדע באטל פארן עס ציטרעפן איך זיך שוין ארים א לאנגע צייט דעיס צו מאכען, די אייבערשטער זאל דיר באצאלען אלץ גיטס!!!!
נאר די פראבלעים הייבט זיך אן אז איך האב מער ווי 7000 פאנטס נעמט עס א יאר מיט א מיטוואך ביז עס ווערט געמאכט.
אין שכויעך פאר דיר סאדע באטל פארן עס ציטרעפן איך זיך שוין ארים א לאנגע צייט דעיס צו מאכען, די אייבערשטער זאל דיר באצאלען אלץ גיטס!!!!
נאר די פראבלעים הייבט זיך אן אז איך האב מער ווי 7000 פאנטס נעמט עס א יאר מיט א מיטוואך ביז עס ווערט געמאכט.
Normal is just a setting on the washing machine
- האניג
- שר האלפיים
- תגובות: 2795
- זיך איינגעשריבן אום: דאנערשטאג יולי 09, 2009 5:32 pm
- לאקאציע: אין דער היים, אין האטעל, אין מיין דארמינטארי צימער
- פארבינד זיך:
כ'בין פארלוירן געווארן אין אנגעקומען צו א וועבזייטל פונטייפ, כ'האב קיינמאל נישט געזען דעם וועבזייטל פאר דעם, קיינמאל נישט געהערט פון דעם נאמען, און ווי אויך דאכציכמיר קיינמאל נישט באמערקט ערגעץ וואו די פאנטס. איז דאס א נייער קאמפאני, ווייסט איינער דערפון? ס'זעט אויס ווי זיי האבן נישט צו לאנג צוריק אנגעהויבן, זיי האבן לעת עתה "בלויז" 31 פאנטס (גראדע גאנץ שיינע\הערליכע\קלאסישע\מאדערנע\חסידי'שע פאנט). עני אינפא וויל בי גרעיטלי אפרישיעטעד!
ביז'ן טרינק דארף מען אויך א קרעטשמע.
- קהת
- שר האלפיים
- תגובות: 2995
- זיך איינגעשריבן אום: דאנערשטאג דעצעמבער 10, 2009 1:18 pm
- לאקאציע: דארט ווי איך בין!!!
צו דיר מאנאגרעמס
איך האב טאקע נישט געניצט מער ווי צוואנציג אדער דרייסיג א וואך אבער דערווייל האב איך נישט קיין אנדערע אפשען ווי צו האלטען די פאנטס הלוואי עס וואלט געוועהן א פלאץ צו קענען האלטען די פאנטס אן אויפנעמען פלאץ אין קאמפיאטער.
און נאך א זאך פאר איך הייב אן צו מאכן א פראדזעקט ווייס איך נאכנישט וועלעכע פאנט איך גיי ניצן אין ווען איך האלט דארט קלויב איך אויס איינס וואס פאסט דארט אריין
קען איך דיך פרעגן וואס טיסטו מיט דיינע פאנטס וועלעכע האלטסטו יא אין דיין קאמפיאטער און וועלעכע נישט?
איך האב טאקע נישט געניצט מער ווי צוואנציג אדער דרייסיג א וואך אבער דערווייל האב איך נישט קיין אנדערע אפשען ווי צו האלטען די פאנטס הלוואי עס וואלט געוועהן א פלאץ צו קענען האלטען די פאנטס אן אויפנעמען פלאץ אין קאמפיאטער.
און נאך א זאך פאר איך הייב אן צו מאכן א פראדזעקט ווייס איך נאכנישט וועלעכע פאנט איך גיי ניצן אין ווען איך האלט דארט קלויב איך אויס איינס וואס פאסט דארט אריין
קען איך דיך פרעגן וואס טיסטו מיט דיינע פאנטס וועלעכע האלטסטו יא אין דיין קאמפיאטער און וועלעכע נישט?
Normal is just a setting on the washing machine
- למעלה משבעים
- שר עשרת אלפים
- תגובות: 12397
- זיך איינגעשריבן אום: זונטאג מארטש 02, 2008 10:17 pm
- לאקאציע: ערגעץ פארבלאנדזשעט אויף די גראדע וואסערן
- למעלה משבעים
- שר עשרת אלפים
- תגובות: 12397
- זיך איינגעשריבן אום: זונטאג מארטש 02, 2008 10:17 pm
- לאקאציע: ערגעץ פארבלאנדזשעט אויף די גראדע וואסערן