פונט פונקציה להצגת כל הפונטים שעל המחשב!

[שירי כהן]

גם לחץ לא

זה כבר לא מדויק.. סליחה על ההתערבויות.

 

[אביגדורית]

תקוע עדיין. מה עושים?

 

[אישאשכולות]

קח את זה, ותפעיל את המאקרו AVIGDOR


זה כבר כן?
אגב, תודה על המחמאה

א. יפה מאוד. לא ידעתי שפקודות מאקרו "נצמדות" לקבצים. רק אביגדור צריך להבין מה עשית עבורו.

ב. איזו מחמאה?

 

[אביגדורית]

א. יפה מאוד. לא ידעתי שפקודות מאקרו "נצמדות" לקבצים. רק אביגדור צריך להבין מה עשית עבורו.

זהו. שפקודות מקרו לא נצמדות לקבצים ולכן זה לא כלום.

 

[ונתנו10]

Ctrl+Alt+Delete
בתור השני, PROCESSERS מחפשים את WINWIRD.EXE, קליק על זה, ולמטה יש לך את: END PROCESS. והכל מסודר.

 

[ונתנו10]

א. יפה מאוד. לא ידעתי שפקודות מאקרו "נצמדות" לקבצים. רק אביגדור צריך להבין מה עשית עבורו.

ב. איזו מחמאה?

זהו. שפקודות מקרו לא נצמדות לקבצים ולכן זה לא כלום.

אפשר להצמיד אותם.

 

[מעיינות21]

אצלי עדיין תקוע..
הוא אמר 5-6 דק' לכל 1000 פונטים אז זה בהתאם.

 

[אישאשכולות]

זהו. שפקודות מקרו לא נצמדות לקבצים ולכן זה לא כלום.

הורדתי לרגע את הקובץ שהוא העלה עבורך, והיה גם היה בתוכו מאקרו תחת השם AVIGDOR.

 

[ונתנו10]

הורדתי לרגע את הקובץ שהוא העלה עבורך, והיה גם היה בתוכו מאקרו תחת השם AVIGDOR.

היה אבל לא עבד...
משהו לא עשיתי נכון, והגם שהמאקרו קיים שם.

 

[אביגדורית]

גם אצלי היה אבל ניסית אותו והוא עבד?

 

[אישאשכולות]

היה אבל לא עבד...
משהו לא עשיתי נכון, והגם שהמאקרו קיים שם.

הוא בכל אופן עשה דרך ארוכה עד שהגיע אלינו.
או שלא...

א"א

 

[מיכל וובר]

נסה את זה - - -
למרות שלדעתי עשית את הדרך טוב,
רק תנסה שוב, כי התוכנה שלך נתקעה - - -

 

[אישאשכולות]

אביגדור, אגב, מה חסר לך ה"ויסטה"?

 

[אביגדורית]

תודה רבה לכולכם, הוורד פשוט נתקע כשאני מפעיל את המקרו, מחר אני אנסה שוב בעז"ה כשהמחשב יהיה בריא, לא אחרי עבודה מאומצת.

לא בשביל זה אתם נשארים ערים, תחכו לאיזה קובץ שאמור לרדת לדפוס או משו כזה...

עידכונים מחר בעז"ה.

 

[אביגדורית]

ייייייייייייייייייייייייייייששששששששששששששששש.

כמעט כיביתי את המחשב והנה המאקרו נמצא מלא פונטים.

אבל יש הרבה הרבה פונטים שהם ברירת מחדל, מה אמרו מקודם שזה אומר?

 

[מעיינות21]

ריחמו עליך משמים
כי ידעו שמחר לא תעשה את זה

 

[studio dv.d]

אם תקראו את הפונקציה ולא צריך להבין הרבה כי אני לא יודע לרשום פונקציה

'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

השורות האלה אומרות למחשב שיכתוב את העמודה השניה
תכתבו לו במקום זה את השורה הזאת
אבגדהוזחטיכלמנסעפצקרשת כםןףץ 1234567890 (?!)
את זאת
abcdefghiklmnopqrstuvwxyz 1234567890 (?!)

'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

ואלה נותנות את הפקודה לכתוב את העמודה השלישית אם תשנו אותם לאותיות אנגליות אז הוא פשוט יתן לכם בתצוגה את האותיות האנגליות
ובמקום השורה הזאתי
כך נפץ התרסק על גוזל קטן שדחף את צבי למים
תכתבו את זה
jackdaws love my big sphinx of qwartz
תנסו ותגידו לי אם נתקעתם
אגב זהירות לא למחוק סוגריים לא לייצר שורה חדשה לא לגעת כלום מלבד המילים

 

[אישאשכולות]

בוקר טוב!
עוד לא ניסיתי, אבל לא נראה לך שצריך לשנות גם את "פונט עברי" שמופיע שם?

 

[studio dv.d]

אוליל לא זה מה שנותן אינדקס גם על הפונט העברי אם מדובר באמת בפונט עברי

 

[אישאשכולות]

מה? באיזה שפה זה?

אוליל לא זה מה שנותן אינדקס גם על הפונט העברי אם מדובר באמת בפונט עברי

הסבר בבקשה!

א"א