דילוג לתוכן

עזרה הדדית - וורד

385 נושאים 4.8k פוסטים
  • 22 הצבעות
    178 פוסטים
    9k צפיות
    ASDF1345A

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

    Sub הוספת_מעבר_עמוד_לפי_סגנון_כל_המסמך() ' ' הוספת_מעבר_עמוד_לפי_סגנון_כל_המסמך Macro ' ' Application.ScreenUpdating = False Selection.Find.ClearFormatting SIGNON = Selection.Style Dim my_undo As Object Set my_undo = Application.UndoRecord my_undo.StartCustomRecord ("הוספת מעבר עמוד לפי סגנון") On Error GoTo ending Dim rng, oRange As Range Set rng = Selection.Range Selection.WholeStory Set oRange = Selection.Range Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "#^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll start: With Selection.Find .ClearFormatting .Text = "#" .Style = SIGNON .Forward = True .Wrap = wdFindContinue Selection.Find.Execute If Not Selection.Range.InRange(oRange) Then GoTo ext If .Found = True Then Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Selection.InsertBreak Type:=0 GoTo start End If End With ext: Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "#" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With rng.Select ending: my_undo.EndCustomRecord Application.ScreenUpdating = True End Sub
  • שאלה | טורים לא קשורים זל"ז

    2
    0 הצבעות
    2 פוסטים
    32 צפיות
    menajemmendelM

    @חדר-1
    יש עושים טבלה, אני ממליץ יותר לעשות כותרות צד, יש אופציה אוטומטית לכותרות צד בתוסף של @pcinfogmach עיצוב תורני

  • בקשת מידע | איך בודקים אם הוורד חוקי

    6
    0 הצבעות
    6 פוסטים
    37 צפיות
    ד

    @סרן-קריקגור כתב בבקשת מידע | איך בודקים אם הוורד חוקי:

    @דאנציג שילמתי 200 שקל על הרבה תוכנות , כולל ווינדוס וכו'
    הגיוני שזה רשיון חוקי?

    כמו ש@aiib כתב אין סיכוי!
    אם אתה רוצה לבדוק אם הווינדוס חוקי (התוכנה היחידה שיכולה להיות חוקית) תצטרך לבדוק לפי הדגם מחשב ומקום הקנייה שלו.
    כל שאר התוכנות בוודאות אינם חוקיות. אמנם ישנם תוכנות שבדרך כלל מתקינים אותם שהם חינמיות.
    אם אתה רוצה אופיס (וורד וכו') חוקי, יש כאן מדריך מסודר לאופיס ממשרד החינוך.

  • 1 הצבעות
    7 פוסטים
    180 צפיות
    יום חדש מתחילי

    @איש-שלו צור איתי קשר באישי!

  • עזרה | בעיות במאקרו של וורד

    5
    0 הצבעות
    5 פוסטים
    38 צפיות
    ד

    @pcinfogmach כתב בעזרה | בעיות במאקרו של וורד:

    אפשר לייצר תבנית ייעודית עבור המאקרואים ולשמור אותה אותה בתיקיית ה-startup של וורד

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

    @pcinfogmach כתב בעזרה | בעיות במאקרו של וורד:

    כאשר משתמשים בניקוי קבצי זבל

    לאו דווקא, הרבה פעמים לאחר הקלטת מאקרו וורד מבקש לשמור שינויים במסמך הנורמל, ואם לא מאשרים או כן מאשרים (לא זוכר בדיוק) כל המאקרו בנורמל נמחקים!!!

  • בירור | תוכן עניינים ממספרים לאותיות

    6
    0 הצבעות
    6 פוסטים
    71 צפיות
    U

    @u88 ?

  • בקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?

    26
    0 הצבעות
    26 פוסטים
    341 צפיות
    menajemmendelM

    @u88 כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

    @ששמעון יש מצב שמישהו עושה את המאקרו הזה מסודר בתוך תבנית ????

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

  • בקשה | כותרות ועימוד בוורד

    4
    0 הצבעות
    4 פוסטים
    145 צפיות
    U

    @יודי תוכל לכתוב בדיוק מה אתה צריך ואפשר לעלות לך תבנית + עזרה שתצטרך בישור טורים כמו שכתב @menajemmendel או בוורד תורני וכו'

  • שיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד

    77
    20 הצבעות
    77 פוסטים
    2k צפיות
    P

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

  • 0 הצבעות
    10 פוסטים
    289 צפיות
    menajemmendelM

    @יום-חדש-מתחיל
    גיליתי שאפשר ככה
    ([א-ת]*[א-ת]){2,}
    0be12fe8-4f6b-4851-9b88-d41ac62c0863-image.png
    אבל באתי וראיתי שאני מאחר לידינו @pcinfogmach

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

  • באג | זה מה שרואים כשמוסיפים מס' עמוד בוורד

    8
    0 הצבעות
    8 פוסטים
    63 צפיות
    menajemmendelM

    @MNM סתם שתדע, לא היה כאן שום תקלה, זה לא היה בעיה, השדות (ובכלל זה מספר עמוד) הם קודים שגורמים שיופע טקסט מסויים, ויש להם שתי מצבים מצב הקוד (ומועיל לצורך כתיבת הקוד) ומצב התוצאה של הקוד, מה הרצית זה היה להעביר אותו ממצב כתיבת קוד, לתוצאה

  • עזרה | האם יש הבדל בין 3 סוגי מעברי הפסקאות האלה

    4
    0 הצבעות
    4 פוסטים
    54 צפיות
    שלום עולםש

    הסתדרתי.
    GPT כתב לי מאקרו:

    Sub ReplaceParagraphBreakWithTilde() Dim para As Paragraph Dim i As Long Dim doc As Document Dim styleName As String ' הגדר את שם הסגנון שברצונך לחפש styleName = "פירוש" ' הגדר את המסמך הפעיל Set doc = ActiveDocument On Error Resume Next ' התעלם משגיאות ' עבר על כל הפסקאות במסמך, החל מהראשונה ועד לפני האחרונה For i = 1 To doc.Paragraphs.Count - 1 ' בדוק אם הפסקה הנוכחית והפסקה הבאה הן בסגנון "פירוש" If doc.Paragraphs(i).Style = styleName And _ doc.Paragraphs(i + 1).Style = styleName Then ' החלף את מעבר הפסקה בין הפסקה הנוכחית לפסקה הבאה בסימן טילדה doc.Paragraphs(i).Range.InsertAfter "~" doc.Paragraphs(i).Range.Characters.Last.Delete End If Next i On Error GoTo 0 ' הפסק התעלמות משגיאות End Sub
  • בקשת מידע | המרת PDF לוורד.

    9
    0 הצבעות
    9 פוסטים
    163 צפיות
    ת

    @איך-החיים כתב בבקשת מידע | המרת PDF לוורד.:

    תודה לכולם

    סמן נושא זה כנפתר

  • עזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה

    16
    0 הצבעות
    16 פוסטים
    167 צפיות
    א

    למעיישה עשיתי כך בעזרתכם (יש קצת עבודה ידנית אבל בקליינע):

    Sub פיצול_מסמך() Selection.EndKey Unit:=wdStory, Extend:=wdExtend Selection.Cut Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdUseDestinationStylesRecovery) ActiveDocument.Save Windows("הכל").Activate End Sub
  • עזרה | חיפוש והחלפה בוורד

    14
    0 הצבעות
    14 פוסטים
    194 צפיות
    SHEMSHS

    @איש-צדיק-מידי ה-לוכסן+ספרה, מבטא את הסוגריים העגולות שבתיבת חפש את, המספור הוא לפי הסדר של הסוגריים בתיבת חפש את.
    כך שאם בתיבת חפש את היה כתוב כך: (ד)(ה)(ו). אזי שאם תרצה להפוך את זה ל-דוה תכתוב \1\3\2, ואם תרצה להפוך ל-והד תכתוב \3\2\1.

  • בעיה | הפניות & מספר עמוד

    4
    0 הצבעות
    4 פוסטים
    58 צפיות
    P

    @u88
    תנסה את הסשדה של @מאקרו שהובא בהמשך הפוסט הנ"ל

  • בעיה | רווח מיתר בין אותיות

    37
    0 הצבעות
    37 פוסטים
    331 צפיות
    יוסף אלחנןי

    @u88 אני רואה רק שורה אחת שכתובה ככה...

    ואת זה אתה יכול לתקן כמו שכתבתי לעייל, בסעייתא דישמיא!
    תדגיש רק את השורה הזו, Alt + f8 ותבחר לפי הראשון ואחר כך שוב פעם ותבחר את השני...

    לי זה עבד...

  • נושא זה נמחק!

    1
    0 הצבעות
    1 פוסטים
    2 צפיות
    אין תגובות
  • בעיה | אין אפשרות לפתוח קובץ בתצוגה מוגנת

    2
    0 הצבעות
    2 פוסטים
    52 צפיות
    ת

    מקפיץ......

    אין לאף אחד מידע על המטרד הזה?

    תודה מראש

  • נושא זה נמחק!

    1
    0 הצבעות
    1 פוסטים
    16 צפיות
    אין תגובות