פאנטס אין ווארד 2013

די אחראים: זייער נייגעריג,אחראי,thefact

שימי
אנשי שלומינו
תגובות: 2
זיך איינגעשריבן אום: דינסטאג אפריל 23, 2013 8:31 pm

פאנטס אין ווארד 2013

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שימי »

איך מיטשע מיך זייער אין ווארד 2013 מיט אסאך פאנטס וואס ארבעטן נישט געהעריג דהיינו, איך זע א אנדערע פאנט אויפן סקרין, אבער ווען איך פעסט עס אריין צו עקסעל אדער איך פרינט עס, קומט יא ארויף דער ריכטיגע פאנט. האט איינער עפעס א עצה? תודה למפרע
אוועטאר
קנאפער ידען
שר החסד
תגובות: 30690
זיך איינגעשריבן אום: זונטאג יאנואר 06, 2013 10:06 pm
לאקאציע: וואו ג-ט ב"ה וויל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קנאפער ידען »

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

נישט אייביג קום איך אן צו אלעס, אויב איינער האלט איך קען בייהילפיג זיין פאר עפעס דא קען מען מיר צושיקן א לינק דערצו אין אימעיל [email protected]
אוועטאר
חכם ממה נשתנה
שר האלף
תגובות: 1147
זיך איינגעשריבן אום: מאנטאג יוני 08, 2015 8:26 pm
לאקאציע: א גאנצע צייט אינטער די השפעה פון די אפיקומן

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך חכם ממה נשתנה »

איך טרעף נישט די תגובות פון די מערקרא פאר פאנט פריוויוו אין מיקראסאפט אפיס
חכם מה הוא אומר.. (הגדה של פסח)
אוועטאר
קנאפער ידען
שר החסד
תגובות: 30690
זיך איינגעשריבן אום: זונטאג יאנואר 06, 2013 10:06 pm
לאקאציע: וואו ג-ט ב"ה וויל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קנאפער ידען »

חכם ממה נשתנה האט געשריבן:איך טרעף נישט די תגובות פון די מערקרא פאר פאנט פריוויוו אין מיקראסאפט אפיס

דו באציסט זיך אויף עפעס אין דעם אשכול (אזוי סאונדט עס פון דאס וואס דו זאגסט אז דו טרעפסט עס נישט, משמע אז דו מיינסט אז עס איז דא געווען אזאנס)?

אויב דו זוכסט סתם אזוי א מעקראו צו באקומען א פריוויאו אין מייקראסאפט ווארד פון אלע פאנטס וואס דו האסט אינסטאלירט, קענסטו נוצן דאס:

קאוד: וועל אויס אלע

Sub ListAllFonts()

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 "ABCDEFG abcdefg 1234567890 אבגדהוזח"
    End With
Next J
FontTable.Sort SortOrder:=wdSortOrderAscending
End Sub


אדער דאס (וואס האט א לענגערע ליסטע פון אותיות אינעם פריוויאו):

קאוד: וועל אויס אלע

Sub ListFonts()

   Dim varFont As Variant
   ' Speeds macro processing and suppresses display.
   Application.ScreenUpdating = False
   ' Create new document.
   Documents.Add Template:="normal"

   ' Loop through each available font.
   For Each varFont In FontNames
      With Selection
         ' Format for name of font.
         .Font.Name = "times new roman"
         .Font.Bold = True
         .Font.Underline = True
         ' Insert Font name.
         .TypeText varFont
         ' Insert a new paragraph after the Font Name.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Format for the font example.
         .Font.Bold = False
         .Font.Underline = False
         .Font.Name = varFont
         ' Enter example text(Alphabetic characters.)
         .TypeText "abcdefghijklmnopqrstuvwxyz"
         ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Numeric characters.)
         .TypeText "0123456789?$%&()[]*_-=+/<>"
          ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Hebrew Alpha-Bits)
         .TypeText "אבגדהוזחטיכלמםנןסעפךצץקרשת"
         ' Insert two new paragraphs and move down.
         .InsertParagraphAfter
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
      End With

   Next varFont
   Application.ScreenUpdating = True

End Sub


(קרעדיט מייקראסאפט סופפארט, נאר צוגעלייגט די אל"ף בי"ת)
"אייער צופרידנהייט, מיין הנאה." -מיך אליינס...

נישט אייביג קום איך אן צו אלעס, אויב איינער האלט איך קען בייהילפיג זיין פאר עפעס דא קען מען מיר צושיקן א לינק דערצו אין אימעיל [email protected]
אוועטאר
חכם ממה נשתנה
שר האלף
תגובות: 1147
זיך איינגעשריבן אום: מאנטאג יוני 08, 2015 8:26 pm
לאקאציע: א גאנצע צייט אינטער די השפעה פון די אפיקומן

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך חכם ממה נשתנה »

יא ביזט גערעכט און איך האב עס טאקע געזיכט איבער א שעה
איך האב עס געזעהן און איך האב נישט געדענק ווי
א ריזיגע יישר כח
חכם מה הוא אומר.. (הגדה של פסח)
אוועטאר
יאפין
שר האלף
תגובות: 1546
זיך איינגעשריבן אום: דינסטאג פעברואר 24, 2009 8:12 am

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יאפין »

איך זיך א פונט HaddarOutlineYaGol וואס איז קאמפעטיבעל מיט אפיס 2013.
ת׳הא ש׳נת פ׳רנסה ג׳דולה
אוועטאר
קנאפער ידען
שר החסד
תגובות: 30690
זיך איינגעשריבן אום: זונטאג יאנואר 06, 2013 10:06 pm
לאקאציע: וואו ג-ט ב"ה וויל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קנאפער ידען »

יאפין האט געשריבן:איך זיך א פונט HaddarOutlineYaGol וואס איז קאמפעטיבעל מיט אפיס 2013.

אויב דו האסט דער פאנט שיק מיר עסעס אריין וועלעך דירדיר עס מאכן קאמפעטיבעל.
"אייער צופרידנהייט, מיין הנאה." -מיך אליינס...

נישט אייביג קום איך אן צו אלעס, אויב איינער האלט איך קען בייהילפיג זיין פאר עפעס דא קען מען מיר צושיקן א לינק דערצו אין אימעיל [email protected]
אוועטאר
יאפין
שר האלף
תגובות: 1546
זיך איינגעשריבן אום: דינסטאג פעברואר 24, 2009 8:12 am

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יאפין »

כ'האב עס געהאט אויף מיין אלטע קאמפיוטער, און אויף מיין נייע האב איך עס נישט.
כ'האלט אינמיטען עדיטען א פייל וואס האט דער פאנט, און כהאב נישט קיין נערווען עס צו טוישען.
ת׳הא ש׳נת פ׳רנסה ג׳דולה
אוועטאר
הודו להשם
שר ארבעת האלפים
תגובות: 4699
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 17, 2017 3:44 pm
לאקאציע: אפדעיט: נארוואס צוריקגעקומען!
פארבינד זיך:

מעקראו

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך הודו להשם »

מ'רעדט דא וועגן א מעקראו וואס מ'נוצט צו זעהן די פאנט פריוויא אין מייקרא. אפיס, אבער איך בין אביסל ניי דערינען, ווי דארף מען אריינלייגן דעם מעקראו? וויאזוי ארבעט דער סיסטעם?
איז אישי טאקע אזוי גוט ווי מען מאכט אים?
אוועטאר
י גרין
שר האלף
תגובות: 1173
זיך איינגעשריבן אום: דאנערשטאג יולי 09, 2020 3:39 am

Re:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך י גרין »

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

אויב דו זוכסט סתם אזוי א מעקראו צו באקומען א פריוויאו אין מייקראסאפט ווארד פון אלע פאנטס וואס דו האסט אינסטאלירט, קענסטו נוצן דאס:

קאוד: וועל אויס אלע

Sub ListAllFonts()

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 "ABCDEFG abcdefg 1234567890 אבגדהוזח"
    End With
Next J
FontTable.Sort SortOrder:=wdSortOrderAscending
End Sub


אדער דאס (וואס האט א לענגערע ליסטע פון אותיות אינעם פריוויאו):

קאוד: וועל אויס אלע

Sub ListFonts()

   Dim varFont As Variant
   ' Speeds macro processing and suppresses display.
   Application.ScreenUpdating = False
   ' Create new document.
   Documents.Add Template:="normal"

   ' Loop through each available font.
   For Each varFont In FontNames
      With Selection
         ' Format for name of font.
         .Font.Name = "times new roman"
         .Font.Bold = True
         .Font.Underline = True
         ' Insert Font name.
         .TypeText varFont
         ' Insert a new paragraph after the Font Name.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Format for the font example.
         .Font.Bold = False
         .Font.Underline = False
         .Font.Name = varFont
         ' Enter example text(Alphabetic characters.)
         .TypeText "abcdefghijklmnopqrstuvwxyz"
         ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Numeric characters.)
         .TypeText "0123456789?$%&()[]*_-=+/<>"
          ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Hebrew Alpha-Bits)
         .TypeText "אבגדהוזחטיכלמםנןסעפךצץקרשת"
         ' Insert two new paragraphs and move down.
         .InsertParagraphAfter
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
      End With

   Next varFont
   Application.ScreenUpdating = True

End Sub


(קרעדיט מייקראסאפט סופפארט, נאר צוגעלייגט די אל"ף בי"ת)


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

?
אוועטאר
דרייטצעך
שר ששת אלפים
תגובות: 6153
זיך איינגעשריבן אום: מיטוואך דעצעמבער 29, 2021 5:13 pm
לאקאציע: וואו דרייטצעך א איד?

Re: Re:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך דרייטצעך »

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

אויב דו זוכסט סתם אזוי א מעקראו צו באקומען א פריוויאו אין מייקראסאפט ווארד פון אלע פאנטס וואס דו האסט אינסטאלירט, קענסטו נוצן דאס:

קאוד: וועל אויס אלע

Sub ListAllFonts()

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 "ABCDEFG abcdefg 1234567890 אבגדהוזח"
    End With
Next J
FontTable.Sort SortOrder:=wdSortOrderAscending
End Sub


אדער דאס (וואס האט א לענגערע ליסטע פון אותיות אינעם פריוויאו):

קאוד: וועל אויס אלע

Sub ListFonts()

   Dim varFont As Variant
   ' Speeds macro processing and suppresses display.
   Application.ScreenUpdating = False
   ' Create new document.
   Documents.Add Template:="normal"

   ' Loop through each available font.
   For Each varFont In FontNames
      With Selection
         ' Format for name of font.
         .Font.Name = "times new roman"
         .Font.Bold = True
         .Font.Underline = True
         ' Insert Font name.
         .TypeText varFont
         ' Insert a new paragraph after the Font Name.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Format for the font example.
         .Font.Bold = False
         .Font.Underline = False
         .Font.Name = varFont
         ' Enter example text(Alphabetic characters.)
         .TypeText "abcdefghijklmnopqrstuvwxyz"
         ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Numeric characters.)
         .TypeText "0123456789?$%&()[]*_-=+/<>"
          ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Hebrew Alpha-Bits)
         .TypeText "אבגדהוזחטיכלמםנןסעפךצץקרשת"
         ' Insert two new paragraphs and move down.
         .InsertParagraphAfter
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
      End With

   Next varFont
   Application.ScreenUpdating = True

End Sub


(קרעדיט מייקראסאפט סופפארט, נאר צוגעלייגט די אל"ף בי"ת)


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

?


עפן א נייע ווארד דאקומענט, דרוק Alt+F11 ביי insert טעב וועל אויס Module קאפי אריין דעי גאנצע אויבנדערמאנטע דארט און דרוק F5, עס וועט נעמען אביסל צייט געוואנדן לויט וויפיל פאנטס דו האסט און עס וועט ארויפקומען א נייע ווארד מיט די ריזאלטס.
= שומר ישראל שמור שארית ישראל =
איך בין נישט קיין דעמאקראט, נישט קיין ריפובליקען און ניטאמאל קיין אינדיפעדענט, איך באנוץ זיך מיט מיין אייגענעם שכל...
אבער אנטקעגן דעת תורה פון מיינע רבי'ס בטלה דעתי!
שרייב תגובה

צוריק צו “מייקראסאפט ווארד”